动态创建组件，如何获得事件和方法

Question

各位神，小弟想问一下，如果我动太创建一个BUTTON，在运行时这个BT才出现，那我我怎么去获得这个BUTTON的方法，
比如我想点一下这个BUTTON弹出一个提示。因为在设计期这个BUTTON是不存在的。所以不知道在哪里写。

Answer 1

比如你定义了这样一个click事件处理过程
procedure Button1Click(Sender: TObject);那么创建按钮后这样
self.Button1.OnClick:=Button1Click;

Answer 2

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