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

質問

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

回答No.2

papayuka · ベストアンサー

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;

お礼

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

回答No.1

BLUEPIXY

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

お礼

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