如何动态生成控件，并且点击后执行CLICK事件

Question

如何动态生成控件，并且点击后执行CLICK事件???

Answer 1

For Example:
var
  aBtn:TButton;
begin
  aBtn:=TButton.Create(Self);
  aBtn.left:=...;
  ...
  ...
  aBtn.OnClick:=FClickEvent; //FClickEvent是自已生成的一个过程
end;procedure FClickEvent(Sender:TObject);
begin
  Showmessage('OK');
end;

Answer 2

procedure myclick(Sender: TObject);procedure Tform1.myclick(Sender: TObject);
begin
  ……
end;var a : TButton;begin
  a := TButton.create(self);
  try 
    a.onclick := myclick;
    ……
  finally
    a.free;
  end;
end;

Answer 3

wychero(高天) 的说法绝对可以
你测试一下