高手们，怎么动态生成button???

Question

var 
 button1:TButton;button1:=TButton.creat(self);
button1.Parent:=form1;
button.Show;

Answer 1

var
  b:TButton;
begin
  b:=TButton,Create(Self);
  b.Parent:=一个控件;
end;

Answer 2

with Tbutton.create(self) do begin
  caption:='XX';
  parent:=self;
  height:=XX;
  onclick:=myclick
end;

Answer 3

to:lookby
txinfo(冰炎两重天)给出的例子比较简单可以参考

Answer 4

to :txinfo(冰炎两重天)　and 各位
如何得到新建button的name?

Answer 5

with TButton.Create(Self) do begin
  Caption := 'ButtonMy1';
  Name := 'ButtonMy1';
//~~~~~~~~~~~~~~~~~~~~自己给
  Parent := Self;
  Height := 75;
  Width := 75;
end; 

Answer 6

要不
var
  FButton: TButton;
//~~~~~~~Nameprocedure TForm1.Form1Create(Sender: TObject);
begin
  FButton := TButton.Create(Self);
  //,,,,,,,,,,,
end;

Answer 7

to zswang(伴水)(伤心中) and 各位　自己给 name 只能给一次,我想递归调用.
用动态生成的button再动态生成新button.
如果是这样,怎样才可以得到它的name呢?
或是另一个说法:如何得到当前焦点的控件的name呢?

Answer 8

procedure TForm1.Button1Click(Sender: TObject);
{$J+}
const
  I: Integer = 0;
{$J-}
begin
  with TButton.Create(Self) do begin
    Parent := Self;
    Top := 25 * I;
    Name := 'ButtonMy' + IntToStr(I);
    Caption := Name;
    OnClick := Button1Click;
  end;
  Inc(I);
end;

Answer 9

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if Assigned(ActiveControl) then
    Caption := ActiveControl.Name
  else Caption := '';
end;

Answer 10

//是不是这样
procedure TForm1.Button1Click(Sender: TObject);
{$J+}
const
  I: Integer = 0;
{$J-}
begin
  with TButton.Create(Self) do begin
    Parent := Self;
    Top := 25 * I;
    Name := 'ButtonMy' + IntToStr(I);
    Caption := Name;
    OnClick := Button1Click;
    OnEnter := Button1Enter;
  end;
  Inc(I);
end;procedure TForm1.Button1Enter(Sender: TObject);
begin
  Caption := TButton(Sender).Name;
end;