在DELPHI中根据事件指针调用事件

    我们知道，在DELPHI中我们看到的VCL组件的事件处理函数其实更准确的应该称为事件属性。既然是属性，它就要符合属性的规定。属性是VCL组件中变量以及方法的访问器，是访问组件内部私有存储控件的接口，是一个指针。

   那么我们是否可以通过指针的方法来动态调用VCL的事件呢？答案是肯定的。

  例如我们在一个窗体中有一个BUTTON，在它的ONCLICK事件中，我么写如下代码，目的是让用户点击按钮的时候显示一个“欢迎”的对话框。

procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage('欢迎');
end;

   然后我们在另外一个按钮的onclick事件中写如下代码：

procedure TForm1.Button2Click(Sender: TObject);
var
pro : TNotifyEvent;
begin
   @pro:= MethodAddress('button1click');
   if Assigned(pro) then
     pro(nil);
end;

  编译程序运行，点击button2，你会发现它调用了button1click事件，显示了一个“欢迎”对话框。你可能会说，何必那么复杂，我只需要写 Button1Click(nil);就可以调用了。我写这些主要是希望初学者更深入的了解组件的事件究竟是什么，提供一种思路。上面的例子代码中，你可能已经注意倒了TNotifyEvent,如果有兴趣，看看DELPHI的组件声明以及帮助，或许对你会有提高。