アプリケーションの終了

解決

monst 2004-07-03 18:35:14 No: 9745

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

jok 2004-07-03 18:46:27 No: 9746

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

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

monst 2004-07-05 20:16:26 No: 9747

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