动态创建button按钮问题.....

Question

动态创建button按钮后，请问怎么样为这个动态按钮启用单击事件...在线等待，谢谢

Answer 1

设置button的onclick属性如：
btn1 := TButton.Create(application);
btn1.OnClick := TForm1.button1Click;//这个button1Click是一个已经编写好的click事件

Answer 2

TForm1.button1Click  这里好像有错...假如在我假体上没有button1这个按钮，这句好像出错喽

Answer 3

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    procedure RunSomething(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}
var btn1: TButton;procedure TForm1.RunSomething(Sender: TObject);
begin
  showmessage('hello');
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  btn1:=TButton.Create(self);
  btn1.Parent:=self;
  btn1.Caption:='say hello';
  btn1.OnClick:=RunSomething;
end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if btn1<>NIL then freeandnil(btn1);
end;end.