Delphi - TApplicationEvents OnShortCutイベントを使用してAlt + Cキーの押下を検出する

Question

TApplicationEvents OnShortCutイベントを使用して、Delphiプログラムでアプリケーションのキーボードショートカットを取得しています。次のコードを使用して

：

procedure TForm1.ApplicationEvents1ShortCut(var Msg: TWMKey; var Handled: Boolean) ; 
begin 
    if (Msg.CharCode = VK_F9) then 
    begin 
    ShowMessage('F9 pressed!') ; 
    Handled := True; 
    end; 
end; 

質問： 'ALTのC' が押されたとき、私は検出するにはどうすればよい

？そのよう

Answer 1

：

procedure TForm1.ApplicationEvents1ShortCut(var Msg: TWMKey; 
    var Handled: Boolean); 
begin 
    if (Msg.CharCode = Ord('C')) 
    and (HiWord(Msg.KeyData) and KF_ALTDOWN <> 0) 
    then begin 
    ShowMessage('Alt+C pressed!') ; 
    Handled := TRUE; 
    end; 
end; 

は、Altキーを使用して、システムがメニュー項目やダイアログのコントロールをアクティブにするためにこれらを使用すると、いくつかのキーのみ、ショートカットの悪い選択であることに注意してください。

Answer 2

また、簡単なTActionを作成することも、他のものよりも前にショートカットを取り込むこともできます。