如何动态给一个事件赋予不同的函数?

Question

那你就把foo函数也成
procedure(Sender: TObject) of object
这种类型的过程，就可以button.onClick:=foo了，如果不想这样，你也可以写一个
procedure(Sender: TObject) of object
传门调用你想要调用的过程或函数类型指针，
然后所button.onClick等到你写的过程上

Answer 1

foo: TNotifyEvent;
button1.onclick := foo;

Answer 2

procedure foo(Sender :TObject);implementationprocedure TForm1.foo(Sender :TObject);
begin
  Messagebox(Handle,'oo','pp',MB_OK);
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.OnClick := foo;
end;

Answer 3

procedure myonclick(Sender :TObject);...BitBtn1.OnClick := myonclick;...

Answer 4

明白，已经搞定啦呵呵，原来是自己没有在函数前加上其Form的名字,Faint.