Delphi组件事件动态添加函数

比如想在窗体初始化的时候给一个TImage的OnClick事件动态绑定一个函数OpenTestForm，可以使用如下方法。

1. 定义procedure OpenTestForm，并实现：


procedure OpenTestForm(Sender:TObject);




impelmentation






procedure TMainForm.OpenCourseList(Sender:TObject);


begin


Showmessage(TImage(Sender).Name + ' clicked');


//根据取得名字干实际的事情


end;

2. 在窗体的OnCreate事件中给TImage.Onclick赋值：


ImgTest.onclick := MainForm.OpenTestForm;

注意：这样动态设置的函数不能有参数，一旦设置参数，就会报TNotifyEvent和procedure类型不匹配的错误。但是有时候又需要根据参数来执行相应的操作，该怎么办呢？我的想法是把关键参数放在控件的Name属性中，其他的参数当然可以设成本单元的全局变量。正如我在注释中所说：“根据取得名字干实际的事情”。呵呵。这当然是个笨办法，各位如果有什么好招，请不吝留言。

动态绑定结合FindCompent函数可以做很多事情，具体的事情就依据不同的应用而不同了。

比如，一个窗体有多个具有相同属性，相同事件的TImage组件，如果一个一个组件地设置组件的属性和事件，很是烦人，我们就可以在窗体的OnCreate事件中，利用一个循环来动态地设置这些控件的属性和事件。eg:


TImage(self.FindComponent('ImgCourse' + IntToStr(2))).onclick := MainForm.OpenCourseList;