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キーを押します? – Delphiのヒント – CJCデルファイ (クールなDelphiのヒント)
- GetKeyState:GetKeyState ，この関数は、指定された仮想キーを取得します -百科事典知識中国ネットワーク
- DELPHI OnKeyDown,OnKeyPress,OnKeyUpの違い-CSDN Blog_delphi onkeydown
- デルファイキー値テーブル – 台湾の部族
- DelphiでCtrl-tキーが押されたことを検出する方法 – スタックオーバーフロー
- キーボードキーコード値比較表
