先写事件如:
procedure ImageClick(Sender : TObject);
begin
showmessage('Image is Clicked');
end;动态创建TImage;
var
Img : TImage;
begin
Img := TImage.Create(self);
...
Img.OnClick=ImageClick;
end;
procedure ImageClick(Sender : TObject);
begin
showmessage('Image is Clicked');
end;动态创建TImage;
var
Img : TImage;
begin
Img := TImage.Create(self);
...
Img.OnClick=ImageClick;
end;
begin
showmessage('ok');
end;procedure TForm1.FormCreate(Sender: TObject);
var event: TNotifyEvent;
begin
event:=clicktemp; //
button1.onClick:=event;
end;