delphi - 対応するメニュー項目のない Delphi アプリ ショートカットの作成

Question

アプリで機能を呼び出すショートカット キーの組み合わせ (Ctrl+Alt+D など) を使用したいのですが、どのメニューにもショートカットを表示したくありません。他の方法では表示されないアプリでショートカットを使用できるようにすることは可能ですか?

Answer 1

OnShortCutコンポーネントのイベントTApplicationEventsをこのタスクに使用できます

このコードを確認してください

procedure TForm1.ApplicationEvents1ShortCut(var Msg: TWMKey;
  var Handled: Boolean);
begin
  if (Msg.CharCode = Ord('D')) and (HiWord(Msg.KeyData) and KF_ALTDOWN <> 0) and  (GetKeyState(VK_CONTROL) < 0) then
  begin
    ShowMessage('Ctrl+Alt+D Pressed') ;
    Handled := true;
  end;
end;

Answer 2

はい、可能です。クラス TAction のオブジェクトをフォームに追加する必要があります。Taction のキーボード ショートカットを指定して、コードを TAction のイベント OnExecute に入れることができます。

Taction をフォームに直接追加することはできません。フォームに TactionList を配置する必要があります。その後、TactionList に Taction を追加できます。