怎么动态添加一个按纽啊？？

Question

动态添加一个按纽  还要响应这个按纽的单击事件
急 THX~

Answer 1

with TButton.Create(Self) do
  begin
    Parant := 
    left := 
    ...
    Caption := AName;
    OnClick := ButtonClick;
  end;

Answer 2

var button1:TButton;
 begin
   button1:=button1.create(self);
   button1.parent:=self;
   button1.left:=12;
   button1.height:=22;
  end; 

Answer 3

Btn := TButton.Create( nil );
         Btn.Parent := ScrollBox2;
         Btn.Name := 'MyBtn' + IDStr;
         Btn.Top := TopPosition * 30 + 10;
         Btn.Tag := TopPosition + 1;
         Btn.Left := ScrollBox2.Left + 5;
         Btn.Width := 25;
         Btn.Height := 25;
         Btn.PopupMenu := suiPopupMenu1;
         Btn.OnMouseMove := SelectedMouseMove;
         Btn.OnClick := ButtonClick;
         Btn.Show;  SelectedMouseMove,ButtonClick需要你自己定义

Answer 4

如果是有多个控件要动态创建，主要是要控制好位置，可以先确定一个基准位置，然后依次排列，还有最好要用有滚动条的容器控件，如ScrollBox

Answer 5

var
  btn:TButton;
begin
  Btn := TButton.Create( nil );
         btn.Caption:='aaa';
         Btn.Name := 'MyBtn';
         Btn.Top := 288;
         Btn.Left := 400;
         Btn.Width := 77;
         Btn.Height := 25;         //Btn.OnClick := Button1Click;
         Btn.Show;
end;
不行啊  显示不出btn啊

Answer 6

要有个parent才行，就是你创建出来的Button放在什么上面

Answer 7

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
var btn: TButton;
begin
   Btn := TButton.Create( nil );
   btn.parent:=FORM1;
   btn.Caption:='aaa';
   Btn.Name := 'MyBtn';
   Btn.Top := 288;
   Btn.Left := 400;
   Btn.Width := 77;
   Btn.Height := 25;   //Btn.OnClick := Button1Click;
   Btn.Show;
end;end.

Answer 8

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
    TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
var btn: TButton;
begin
   Btn := TButton.Create( nil );
   btn.parent:=FORM1;
   btn.Caption:='Test';
   Btn.Name := 'MyBtn';
   Btn.Top := 100;
   Btn.Left := 200;
   Btn.Width := 77;
   Btn.Height := 25;
   Btn.Show;
end;end.