如何动态添加及删除界面上的控件？

Question

RT

Answer 1

var
    Label1: TLabel;
begin
    Label1:=TLabel1.Create;
    Label1.Parent:=Form1;
    Label1.Left := 10;
    Label1.Top := 30;
    Label1.Caption := 'test';
//.....
end;

Answer 2

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  Btn:TButton;
begin
  Btn:=Tbutton.Create(self);//设置为self它会跟随窗口的关闭自动释放掉
  with btn do
  begin
    Parent:=self;
    left:=100;
    top:=100;
    width:=100;
    height:=50;
    caption:='test';
  end;end;

Answer 3

删除的时候把它delete或free了就行了