Xボタンで他のフォームも終了するには

解決

初心者  2010-01-03 10:31:42  No: 36695  IP: [192.*.*.*]

こんにちは。

ボタンクリックですべてを終了させる
application.Terminate
は分かったのですが、Xボタンでも他の
フォームを含むすべてを終了させる方法
が分かりません。
きっと簡単なことなのでしょうが、教えて
いただけないでしょうか

編集 削除
igy  2010-01-03 12:23:49  No: 36696  IP: [192.*.*.*]

試していませんが、フォームのOnClose イベントで
  application.Terminate
を実行するのは、いかがですか？

編集 削除
初心者  2010-01-03 13:02:21  No: 36697  IP: [192.*.*.*]

試してみましたが、入力でエラーが出てしまいました。
因みに、turbo delphi です。

編集 削除
igy  2010-01-03 13:29:15  No: 36698  IP: [192.*.*.*]

>入力でエラーが出てしまいました。

具体的には、
どのようなソースコートを書いて、
エラーメッセージは何と表示していますか？

編集 削除
けど  2010-01-03 19:41:29  No: 36699  IP: [192.*.*.*]

同じかと思いますが
Application.MainForm.Close;
では？

編集 削除
初心者  2010-01-03 21:02:15  No: 36700  IP: [192.*.*.*]

application.Terminateは適切な識別子ではありません。というエラーがでました。

編集 削除
D  2010-01-03 21:35:56  No: 36701  IP: [192.*.*.*]

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  application.Terminate
end;


エラーは出ないし、メインフォーム以外のフォーム(この例ならForm2)の×ボタンを押してプログラムを終了できています。

タイプミスなのでは？

編集 削除
初心者  2010-01-03 21:50:59  No: 36702  IP: [192.*.*.*]

イベントリ部分に一生懸命書いてました。
ダブルクリックしたら、Dさんのように記入でき、解決しました。

みなさま、ありがとうございました！

編集 削除