能否动态创建事件函数？

[flyby]

我在程序中动态创建了一个控件（TImage）,然后我想动态创建这个控件的 Onclick事件。能不能创建，怎样创建？
也可以预先写好一个个函数，但我不知道怎样将控件（TImage）的OnClick事件与预先写好的好事关联起来！

[yinfudan]

我也同意Michaelyfj

[netsong]

delphi的事件类型是TNotifyEvent

procedure Tform1.clicktemp(Sender: TObject);
begin
showmessage('ok');
end;

procedure TForm1.FormCreate(Sender: TObject);
var event: TNotifyEvent;
begin
event:=clicktemp; //
button1.onClick:=event;
end;

[netsong]

源程序以email给你了：）

[flyby]

我就是按地一种方法作的，但没成功，我还以为不对呢！真笨！！！
谢谢各位了！！！

[Michaelyfj]

先写事件如：
procedure ImageClick(Sender : TObject);
begin
showmessage('Image is Clicked');
end;

动态创建TImage;
var
Img : TImage;
begin
Img := TImage.Create(self);
...
Img.OnClick=ImageClick;
end;

[Tine]

唉，我来晚了，同意Michaelyfj。:)