怎样动态创建按钮？

Question

RT

Answer 1

var
  a:TButton;
begin
  a :=TButton.Create(self);
  a.Parent := Form1 ;
  a.Name :='mybutton';
  a.Caption :='mybutton';

Answer 2

var
   BtnNew:TButton;  //此处BtnNew实际上是一个引用/指针
begin
   //....
   BtnNew:=TButton.Create(Form1);//Form1是该Button的管理者
   BtnNew.Parent:= Panel1; //Parent指定该按钮放在那个容器上,如果不赋值则不能显示
   BtnNew.Name:='...';
   BtnNew.Caption:='';
   BtnNew.OnClick:=ButtonClick;//ButtonClick是你事先定义好的函数,这样该按钮就能响应Click事件,同理可以给其他事件赋值
   //.... 
end;

Answer 3

var
  B:TButton;
begin
  B:=TButton.Create(Form1);
  B.left:=10;
  .
  .
  .
  B.onClick:=MyClick;
  .
  .
  .
end;

Answer 4

var
  MyButton : TButton;
begin
  MyButton :=TButton.Create(self);
  MyButton.Caption :='确定'
  MyButton.OnClick := Click; //按钮响应事件
  MyButton.Parent := Form1 ; //按钮的父窗体
end;