一个控件事件的问题~

Question

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

Answer 1

procedure TForm1.ButtonClick(Sender: TObject);
begin
  ShowMessage('AA');
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.OnClick := ButtonClick;
end;—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————

Answer 2

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

Answer 3

charles2118(第六元素) 好办法！