フォーム作成時にプログラムを終了する

最終更新 2003 11/14

メインフォームの生成時にプログラムを終了させたいときは多々あります。

たとえば、フォーム生成時にどうにも処理を続けられないようなエラーが
出てしまった場合です。


void __fatcall TForm1::FormCreate( TObject *Sender )
{
    Application->Terminate();
}
PostQuitMessage(0); を呼ぶ方法でもよいでしょうが、BCB的にやると Application オブジェクトの Terminate() メソッドを呼び出します。 Application オブジェクトはプログラム中のどこからでも呼び出すことができます。 フォーム生成時以外にプログラムを終了するときには使わない方がいいと思います。 そういうときは終了したいフォームの CloseQuery() を呼び出すのがよいかと 思います。

| home |