我们知道,在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的组件声明以及帮助,或许对你会有提高。