老森常譚 IT Help

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 Tips – CJC Delphi (멋진 Delphi 팁)
• GetKeyState:GetKeyState ，해당 함수는 지정된 가상 키를 가져옵니다 -백과사전 중국어 웹사이트
• DELPHI OnKeyDown,OnKeyPress,OnKeyUp의 차이_踏雪无痕 블로그-CSDN 블로그_delphi onkeydown
• delphi 키 값표 – 타이 부락
• Delphi에서 ctrl-t 키 입력을 감지하는 방법 – Stack Overflow
• 키보드 키 코드 매핑표