怎么才能在窗体上动态生成控件？

Question

var btn:TButton;
begin
  btn:=Tbutton(self);
  btn.left:=.... 
  //这里设置一些别的属性；
  Btn.parent:=Form1;
end;
   

Answer 1

不好意思 btn:=Tbutton(self) 应写成 btn:=Tbutton.Create(self) ;

Answer 2

var
  btn:TButton;
begin
  btn:=TButton.Create(Seft);
  btn.parent:=Form1;
  btn.width:=..
  btn.height:=..
  btn.show;

Answer 3

var
 b : TButton;
begin
 try
  b:=tbutton.create(self);
  b.parent:=form1; //很重要
  b.left:=...;
  b.top:=...;
  b.onclick:=...;
  b.name:=...;
  b.show;
 finally
  b.free;
 end;                            
   
end;