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;