Ctrl + Qでプログラムを終了させるためには？

---

こんにちは。
いつもこのHPを見てDelphiを勉強させてもらっています。

早速なのですが、Ctrl + QまたはAlt + Qで自分自身のプログラムを終了させたいのですがどのようなコードを書けばよいのかわかりません…
わかる方いらっしゃいましたら教えてください。
よろしくお願いします。

編集    削除

---

メインメニュー(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のヘルプを参照してください。

編集    削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。