掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
複数画面を同時に閉じた後に、特定の画面を表示するには？ (ID：8412)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
すみません、質問を読み違っていました。以下のようにします。 AllClose を TForm1 のメソッドにして { Private 宣言 } public procedure AllClose(Sender:TForm); end; var Form1: TForm1; implementation {$R *.DFM} uses Unit2,Unit3; procedure TForm1.AllClose(Sender:TForm); var i:integer; begin for i := 0 to Screen.CustomFormCount-1 do if Screen.CustomForms[i] is TForm1 then Screen.CustomForms[i].Show else if not (Screen.CustomForms[i] = Sender) then Screen.CustomForms[i].Release; end; procedure TForm1.Button1Click(Sender: TObject); begin Form2 := TForm2.Create(Application); Form2.Show; Form3 := TForm3.Create(Application); Form3.Show; Self.Hide; end; そして Unit2.pas では uses Unit1; procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction); begin Form1.AllClose(Self); end; Unit3.pas でも uses Unit1; procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction); begin Form1.AllClose(Self); end; とするといいようです。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.