如何编写控件点击事件的代码？

[hqz010]

我在程序中创建如下对象！
while 条件 do
begin
myImage:=TImage.create(self);
myImage.parent:=panel1;
.......
end;

请问那这件生成的控对象，如何在其onclick事件中写代码呢？

[dulei115]

procedure TForm1.ButtonClick(Sender: TObject);
begin
ShowMessage('AA');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Button1.OnClick := ButtonClick;
end;

[dulei115]

procedure TForm1.ImageClick(Sender: TObject);
begin
showmessage('');
end;

while 条件 do
begin
myImage:=TImage.create(self);
myImage.parent:=panel1;
myImage.onclick := ImageClick;
end;

[yoisyois]

procedure TForm1.IamgeClick(Sender: TObject);
begin
//do something
end;

while 条件 do
begin
myImage:=TImage.create(self);
myImage.parent:=panel1;

myImage.OnClick := self.IamgeClick;
.......
end;

[delphicrazyboy]

ding
!

[xiaofei7569]

procedure IamgeClick(Sender: TObject);
begin
//do something
end;

while 条件 do
begin
myImage:=TImage.create(self);
myImage.parent:=panel1;

myImage.OnClick := IamgeClick;
.......
end;

[sun623]

up