Delphi - باستخدام حدث TapplicationEvents OnShortCut للكشف عن مكابس المفاتيح ALT + C
سؤال
أنا أستخدم الحدث OnShortPents TabplicationEvents للحصول على تخفيضات قصيرة لوحات المفاتيح في برنامج Delphi.
باستخدام التعليمات البرمجية التالية:
procedure TForm1.ApplicationEvents1ShortCut(var Msg: TWMKey; var Handled: Boolean) ;
begin
if (Msg.CharCode = VK_F9) then
begin
ShowMessage('F9 pressed!') ;
Handled := True;
end;
end;
سؤال:
كيف اكتشفت عندما تم الضغط على "ALT C"؟
المحلول
مثل ذلك:
procedure TForm1.ApplicationEvents1ShortCut(var Msg: TWMKey;
var Handled: Boolean);
begin
if (Msg.CharCode = Ord('C'))
and (HiWord(Msg.KeyData) and KF_ALTDOWN <> 0)
then begin
ShowMessage('Alt+C pressed!') ;
Handled := TRUE;
end;
end;
يرجى ملاحظة أن استخدام Alt وبعض المفتاح هو مجرد خيار سيء لاختصار، حيث يستخدم النظام هذه لتنشيط عناصر القائمة أو عناصر تحكم الحوار.
نصائح أخرى
أو يمكنك إنشاء نجاح بسيط، يأكلون اختصارات قبل الآخرين.
لا تنتمي إلى StackOverflow