如何把动态创建的button显示在Form1上？

[neighbornet]

如何把动态创建的button显示在Form1上？

[neighbornet]

//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TButton *Button=new TButton(Form1);
Button->Caption="test";
}

[Eastunfail]

var button:TButton;
begin
button:=TButton.Create(self);
button.caption="test"
end;

[xbxsoft]

var
Button1 : array[1..26] of TButton;
I:integer;
begin
i:=1;
button1[i]:= TButton.Create(self) ;
Button1[i].Caption := '1';
Button[i].Parent:=form1;
DriverButton[Counter].OnClick := ButtonMouseDown; //ONCLICK事件

procedure TForm1.ButtonMouseDown(Sender: TObject);
begin
caption := TButton(Sender).caption;
end;

[idilent]

重要的一句是btn.parent = Form1.