比如想在窗体初始化的时候给一个TImage的OnClick事件动态绑定一个函数OpenTestForm,可以使用如下方法。
1. 定义procedure OpenTestForm,并实现:
procedure OpenTestForm(Sender:TObject);
impelmentation
procedure TMainForm.OpenCourseList(Sender:TObject );
begin
Showmessage(TImage(Sender).Name + ' clicked ' );
// 根据取得名字干实际的事情
end;
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;