アプリケーションの終了 (ID:9745)

名前

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

本文 自作のアプリケーションの終了を下記のコードで行っていましたが、 フォーム右上の×ボタンで終了するとこのコードが実行されないことに気づきました。 アプリケーション終了の最良の方法は？ （ST=TStringList.create,環境はD7pro-WinXp-homeです。） procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin windows.Beep(800,100); if key=VK_escape then begin ST.free;Application.Terminate;end; end;