アプリケーションの終了

解決

---

自作のアプリケーションの終了を下記のコードで行っていましたが、
フォーム右上の×ボタンで終了するとこのコードが実行されないことに気づきました。
アプリケーション終了の最良の方法は？
（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;

編集 削除

---

> アプリケーション終了の最良の方法は？

えーと、終了時に必ず実行されると言う意味では普通は ST.free; のようなコードは
フォームの OnDestroy イベントハンドラに書きます。

編集 削除

---

jokさんありがとうございました。

編集 削除

---

名前

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

本文

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