掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
コードでコンポーネントを追加するには？ (ID：7974)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Button1 を何回おしても、最初の一回だけ MyLabel をつくるには procedure TForm1.Button1Click(Sender: TObject); begin if Assigned(MyLabel) then exit; MyLabel := TLabel.Create(self); MyLabel.Parent := self; MyLabel.Left := 10; MyLabel.Top := 10; MyLabel.Caption := 'コードで作成しました'; end; とします。 if Assigned(MyLabel) then exit; これの意味は、MyLabel が既につくられていたら、以下を実行しないですぐに 終了する、ということです。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.