掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
複数画面を同時に閉じた後に、特定の画面を表示するには？ (ID：8410)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
（1）Form1上にButtonを配置し、そのButtonをクリックすると、Form1が閉じ、Form2とForm3が表示される。 （2）Form2，Form3どちらかを閉じようとすると、両Formとも閉じ、Form1が表示される。 といったものを作りたいと思っています。 （1）はうまくいったのですが、（2）を実行しようとするとForm2，Form3は閉じるのですが、Form1を表示させることが出来ません。 以下にソースの一部を記載しますので、ご教授お願いいたします。 【参考】 Form1: procedure TForm1.btNextClick(Sender: TObject); begin Form2 := TForm2.Create(Application); Form2.Show; Form3 := TForm3.Create(Application); Form3.Show; Self.Hide; end; Form2: procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction); begin AllClose; end; procedure TForm2.AllClose; var Form2_Flg,Form3_Flg : Boolean; begin Form2_Flg := True; Form3_Flg := True; try Form2.Close; except Form2_Flg := False; end; if Form2_Flg then Form2.Close; try Form3.Close; except Form3_Flg := False; end; if Form3_Flg then Form3.Close; Form1.Show; end; Form3: procedure Form3.FormClose(Sender: TObject; var Action: TCloseAction); begin Form2.AllClose; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.