掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
コードでコンポーネントを追加するには？ (ID:7972)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こういうふうに使います。 type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private 宣言 } public MyLabel:TLabel; // 手書きで追加 end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); begin MyLabel := TLabel.Create(self); MyLabel.Parent := self; MyLabel.Left := 10; MyLabel.Top := 10; MyLabel.Caption := 'コードで作成しました'; end; procedure TForm1.Button2Click(Sender: TObject); begin if Assigned(MyLabel) then MyLabel.Caption := 'キャプションを変更しました'; end; Button1 を押してから、Button2 を押すと Caption が変更されます。 起動してすぐに、Button2 を押してもエラーにならないのは if Assigned(MyLabel) then で、MyLabel が作られているかどうか判断しているからです。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.