古いセンチャンタン

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キーが押されたことを検出する方法 – スタックオーバーフロー
• キーボードキーコード値比較表