procedure TfmQAB.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
begin
if (Msg.CharCode = 116) and (HiWord(GetKeyState(VK_CONTROL)) = 1) then
begin
......
end
end;
【參考連結】
- قبض على مفتاح SHIFT أثناء اختيار عنصر القائمة? – نصائح دلفي – CJC دلفي (بارد نصائح دلفي)
- GetKeyState:GetKeyState ，تسترد هذه الوظيفة المفتاح الظاهري المحدد -موسوعة شبكة المعرفة الصينية
- DELPHI OnKeyDown,OnKeyPress,فرق OnKeyUp-CSDN Blog_delphi onkeydown
- جدول قيمة مفتاح دلفي – قبيلة تايوان
- كيفية اكتشاف الضغط على مفتاح ctrl-t في دلفي – تجاوز المكدس
- جدول مقارنة قيمة رمز لوحة المفاتيح
