プログラムで作った、ボタンってどうやってクリアするの？ (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;