怎么触发动态创建的按钮的单击和双击事件？

[zuoyangguang]

var
btn_a:tbitbtn;
begin
btn_a:=tbitbtn.create(self);
btn_a.Parent := self; //////
btn_a.top:=500;
btn_a.left:=500;
btn_a.width:=500;
btn_a.height:=500;
btn_a.caption:='ok';
end

按钮创建之后怎么触发动态创建的按钮的单击和双击事件？
谢谢！！

[zuoyangguang]

单击事件可以，但是双击就不行了，谢谢你。

[王集鹄]

//先试试
btn_a.OnClick := Button1Click;
bin_a.OnDblClick := Button1DblClick;
//再把名称换了

[王集鹄]

//..........
type
TForm1 = class(TForm)
//..........
ButtonDblClick(Sender: TObject);
//..........
end;
//..........

procedure TForm1.ButtonDblClick(Sender: TObject);
begin
ShowMessage('只要是参数为一个TObject类型的方法即可');
end;
//..........