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

解決

初心者 2010-01-03 19:31:42 No: 36695

こんにちは。

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

igy 2010-01-03 21:23:49 No: 36696

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

初心者 2010-01-03 22:02:21 No: 36697

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

igy 2010-01-03 22:29:15 No: 36698

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

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

けど 2010-01-04 04:41:29 No: 36699

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

初心者 2010-01-04 06:02:15 No: 36700

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

D 2010-01-04 06:35:56 No: 36701

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

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

タイプミスなのでは？

初心者 2010-01-04 06:50:59 No: 36702

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

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