请高手支招：如何动态生成可视控件？？？

Question

以Button控件为例，如何在Form上显示动态生成的控件，谢谢各位大虾帮忙，必有高分回报！

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  aa: TButton;
begin
  aa:= TButton.Create(Application);
  aa.Left:=50;
  aa.Height:=50;
  aa.Parent:=self;
end;

Answer 2

var
  Button : Tbutton;
  Button := Tbutton.create(nil);
  with Button do
  begin
    parent := form ;
    top := 10 ;
    left := 10 ;
    caption := 'kuangning';
  end;

Answer 3

定义
var btnOne:TButton;
生成
btnOne := TButton.Create(nil);
btnOne.Parent:= Form1;
btnOne.left := 1;
btnOne.top  := 1;
btnOne.width := 232;
btnOne.heigh :=232;
btnOne.Name := 'btnOne';
生成一个 名为btnOne的Button,它放在form1上面

Answer 4

var
  mybtn: Tbutton;
begin
  mybtn := Tbutton.create(self);
  mybtn.parent := self;
  mybtn.Caption := 'mybtn';
  mybtn.top := 111;
  mybtn.left := 111;

Answer 5

procedure TForm1.FormCreate(Sender: TObject);
var
    button:TButton;
begin
    button:=TButton.create(self);
    button.ParentWindow:=Form1.Handle;
    button.Show;
end;

Answer 6

uese StdCtrls;procedure TForm1.Button1Click(Sender: TObject);
var
  aa: TButton;
begin
  aa:= TButton.Create(Application);
  aa.Left:=50;
  aa.Height:=50;
  aa.Caption:='按钮1';
  aa.Parent:=self;
end;

Answer 7

动态生成控件进,最好要指定它的name属性值,因为
var aa:TButton 后虽然可以通过 aa 来访问,但如果你不指定的它的Name,地么并不意味着它的Name就是'aa'

Answer 8

动态生成可是控件的时候
需要自己手动创建和销毁定义
private
  Button: TButton;创建
  Button := TButton.Create(Self);动态显示
    Button.Left := 100;
    Button.Top := 50;
    Button.Caption := '&Demo';
    Button.Parent := Self;销毁
  Button.Free;