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

Question

関数を呼び出すために私のアプリにショートカットキーの組み合わせ（Ctrl + Alt + Dのような）を持ちたいが、ショートカットが任意のメニューに表示されたくない。それ以外の場合は見えないアプリでショートカットを利用可能にすることは可能ですか？

Answer 1

イベントのイベントを使用できます。"http://docwiki.embarcadero.com/vcl/en/appevnts.tapplicationEvents" rel="noreferrer"> 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のIMEXECUTEにコードを入力できます。

フォームに直接TACTACTを追加することはできません。フォームにTACTIONLISTを入力する必要があります。その後、TACTIONLISTにTACTIONを追加できます。