如何定义此类事件？

[boboqin]

多个控件有着相同的事件，比如（MouseMove事件），如何定义该事件使得控件事件能够像调用子程序那样简单，而不要每个控件定义一次事件。

[Apollo47]

button1.OnClick:=DoClick;
button1.OnClick:=DoClick;
button1.OnClick:=DoClick;

procedure DoClick(Sender:TObject);
begin
//代码.............
end;

[boboqin]

兄弟，能给个demo吗？先谢过了，[e-mail]