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