一个控件事件的问题~

[kingofghost]

我动态生成了一个控件比如Tbutton，请问怎么样为我这个控件添加事件函数比如onclick（）？？？

[lxpbuaa]

procedure TForm1.ButtonClick(Sender: TObject);
begin
ShowMessage('AA');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Button1.OnClick := ButtonClick;
end;

—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————

[charles2118]

procedure MyClick(sender:Tobject);
begin
//you code
end;

...
DyButton:=Tbutton.create(self);
with DyButton do
begin
//动态属性设置
DyButton.top:=10;
//动态事件
DyButton.Onclick:=MyClick;
end;

[CeleronII]

来迟了，只能顶一下了。

[w7755]

charles2118(第六元素)

好办法！