掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Formなどのサイズを指定する場所/タイミング (ID：28971)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Tagを変えれば、複数のハンドラを呼び分けなくても...ネ procedure TForm1.Button1Click(Sender: TObject); begin Form2 := TForm2.Create(Self); Form2.Tag := 1; //ケースごとのTag Form2.ShowModal; end; procedure TForm1.Button2Click(Sender: TObject); begin Form2 := TForm2.Create(Self); Form2.Tag := 2; //ケースごとのTag Form2.ShowModal; end; ............... // Form2ユニット procedure TForm2.FormShow(Sender: TObject); begin case TForm(Sender).Tag of 1: begin Width := 200; Height := 200; Button1.Top := 100; end; 2: begin Width := 300; Height := 300; Button1.Top := 200; end; 3: begin Width := 400; Height := 400; Button1.Top := 300; end; ...... end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.