掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Ctrl + Qでプログラムを終了させるためには？ (ID：5676)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
メインメニュー(TMainMenu)があるとして、 メニュー項目(TMenuItem)のひとつがExit1でイカだとします。 procedure TForm1.Exit1Click(Sender: TObject); begin Close; end; procedure TForm1.FormCreate(Sender: TObject); begin Exit1.ShortCut := ShortCut(Word('Q'),[ssCtrl]); // Ctl+Q // or // Exit1.ShortCut := ShortCut(Word('Q'),[ssAlt]); // ALT+Q end; または、オブジェクトインスペクタでShortCutプロパティを設定しておく。 のがよろしいかと思います。 詳しくはTMenuItem.ShortCutのヘルプを参照してください。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.