急急...Delphi中如何实现在运行时动态增加控件呢？

Question

大家好！
  请问大家 在delphi中如何实现在运行是动态增加控件呢？
  比方：Form1上有一个按钮 点击按钮 在Form1上创建了一个靠顶的Panel
        再次点击按钮时 不再创建新的Panel先谢谢大家了！！！

Answer 1

if not Assigned(Self.FindChildControl('Panel2')) then
  begin
    pnl :=  TPanel.Create(Self);
    with pnl do
    begin
      Parent := self;
      Align := alTop;
      Name := 'Panel2';
      Caption := 'Panel2';
    end;
  end;