掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
プログラムで作った、ボタンってどうやってクリアするの？ (ID:39240)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
以下のサンプルででどうでしょうか？ 一つ目のボタンを押すと10個のラベルを生成し、 二つ目のボタンを押すと生成したラベルを消します。 procedure TForm1.Button1Click(Sender: TObject); var Labels:TLabel; i:integer; begin i := 0; while 10 > i do begin Labels := TLabel.Create(self); Labels.parent := self; Labels.Top :=100 + (i * 20); Labels.Left := 10; Labels.Caption := 'L' + inttostr(i); labels.Name := 'L' + inttostr(i); i := i + 1; end; end; procedure TForm1.Button2Click(Sender: TObject); var Lables: TComponent; i:integer; begin i := 0; while 10 > i do begin Lables := FindComponent('L' + inttostr(i));//動的に生成したコンポーネントを探す if Lables <> nil then//コンポーネントが見つかった場合 Lables.free;//解放する i := i + 1; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.