Delphi：コントロールの追加・削除

アプリケーション実行中にコントロールの追加はできるのでしょうか？
それともビジブルをfalseにしておいて、実行中にtrueにするというのでは、どうも追いつけないので。

No.2 ベストアンサー 回答者： papayuka 回答日時： 2005/04/29 14:13

Button1 の Clickで Button を作るような感じ？

var i : integer;
procedure TForm1.Button1Click(Sender: TObject);
begin
　inc(i);
　Randomize;
　with TButton.Create(Self) do begin
　　Parent := Self;
　　Top :=　Random(Self.ClientHeight - TButton(Sender).Height);
　　Left := Random(Self.ClientWidth - TButton(Sender).Width);
　　Caption := '押して' + IntToStr(i);
　　OnClick := Button1Click;
　end;
end;

この回答へのお礼

回答ありがとうございます。大変参考になりました。

お礼日時：2005/05/06 13:19

No.1 回答者： BLUEPIXY 回答日時： 2005/04/29 14:12

実行中にコントロールを作成して追加することはできますよ。

この回答へのお礼

回答ありがとうございます。

お礼日時：2005/05/06 13:18