掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Formなどのサイズを指定する場所/タイミング (ID：28972)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
その① -------------------------------------------- Form2 := TForm2.Create(Self); case Jouken do begin 0:Form2.Width := 100; 1:Form2.Width := 200; 2:Form2.Width := 300; end; Form2.ShowModal; その② ------------------------------------ type TForm2 = class(TForm) private { Private 宣言 } public constructor Create(AOwner: TComponent;Jouken:Integer);overload; end; var Form2: TForm2; implementation constructor TForm2.Create(AOwner: TComponent;Jouken:Integer); begin inherited Create(AOwner); case Jouken of 0:Width := 100; 1:Width := 200; 2:Width := 300; end; end; こうした上で Form2 := TForm2.Create(Self,Jouken); Form2.ShowModal;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.