ShowModalの結果から元フォームを閉じたい

解決

ojinojin 2006-02-21 01:15:32 No: 20117

Delphi初心者です。メインフォームからFormCreateのイベントでモード付のパスワード入力フォームを呼び出します。モード付フォームの「キャンセル」の時はメインフォームを閉じたい（プログラムも終了したい）のですが、Closeでは終了しないのですが、どなたかご存知の方、ご教示お願いします。

procedure TMain_form.FormCreate(Sender: TObject);
begin
  Flg_Open :=0;  // 0で初期化する
  Fin_pass :=TFin_pass.Create(self);
  try
    Fin_pass.ShowModal;
  finally
    Fin_pass.Free;
  end;
  if Flg_Open =0 then   // 0のときは閉じる
  begin
    Close;     // これではこのフォームは閉じないので困っています。
  end
end;

ふぁいと〜いっぱ〜つ！ 2006-02-21 01:22:10 No: 20118

Application.Terminate;
ならドジル。←閉じるやろ。

ojinojin 2006-02-21 01:27:19 No: 20119

閉じました。本当にありがとうございました。早いレスでおどろきました。今後ともよろしくお願いします。