老森常谈 IT 帮助

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 (酷炫的 Delphi 技巧)
• GetKeyState:GetKeyState ，该函数用于获取指定虚拟键的状态 -百科知识中文网
• DELPHI OnKeyDown,OnKeyPress,OnKeyUp 区别_踏雪无痕的博客-CSDN 博客_delphi onkeydown
• delphi 键值表 – 台部落
• 如何在 Delphi 中检测 ctrl-t 按键 – Stack Overflow
• 键盘键码值对照表