关于消息反应．．．

Question

Button2.OnClick := Button1.Click;Procedure Button1Click
begin
  ShowMessage('OK');
end;

Answer 1

Delphi的事件同样也是属性，可以赋值。不过赋的值是函数名称。
Button1.OnClick := Button1Click;procedure TForm1.Button1.Click(Sender:Tobject);
begin
  ShowMessage('Show me the money');
end;

Answer 2

基本同意楼上的说法.
一般控件定义好的控件事件的过程类型,可以通过先用IDE生成,然后把参数类型拷贝过来作为
自己使用.
当然这就说明你自己也可以自定义事件,但事件必须先定义好过程类型.(一定是过程).
然后赋值.