怎么在程序中自动生成组件??急

Question

var btn:TButton;btn := TButton.Create(self);
btn.Parent := self;

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var btn:TButton;
begin
btn := TButton.Create(self);
btn.Name := 'youname';
btn.Parent := form1;
//还可以加上位置
btn.Left := 100;
btn.Top := 100;
end;

Answer 2

TWincontrol的子类应该是：
var btn:TButton;btn := TButton.Create(self);  //<---这里的self指窗口类释放btn内存
btn.Parent := self;//<---这里的self指窗口类包含btn
---------------------------
TGrapicControl的子类应该是：
var btn:TButton;Image1 := TImage.Create(nil);  //<---这里的self指窗口类释放Image1内存
Image1.Parent := self;;//<---这里的self指窗口类窗口类包含Image1
  当然，也可以用一个循环生成。

Answer 3

//应该是：
var Image1: TImage;
try
  Image1 := TImage.Create(nil);  //<---这里的没self
finally
  Image1.Free;
end;