如何用代码实现 OnClick 事件?(100分)

R

redboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-19

• #1

我用如下代码创建了一组 TImage 类 Cards :
var
Cards:array[0..10] of TImage;
begin
for i:=0 to 10 do
Cards:=TImage.Create(Self);
end;

请问如何用代码实现 Cards 的 OnClick 事件?

 

D

dcsdcs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-19

• #2

Cards.onclick:=xxxxx;
多看以前的帖子和书，不要碰到问题就问！

 

X

x900

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-19

• #3

procedure MyClick(Sender: TObject);
...
TImage(Cards).OnClick := MyClick;

 

W

wyb_star

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-19

• #4

procedure TForm1.CardClick(Sender:TObject);
begin
ShowMessage('OK');
end;
Cards.OnClick := CardClick;

 

爱

爱元元的哥哥

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-19

• #5

procedure TForm1.CardClick(Sender:TObject);
begin
ShowMessage(IntToStr((Sender as TImage).Tag));
end;

var
Cards:array[0..10] of TImage;
begin
for i:=0 to 10 do
Cards:=TImage.Create(Self);
Cards.Tag:=i;
Cards.OnClick := CardClick;
end;

 

H

helloqiner

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-19

• #6

对，就是这样，用他们的方法就可以解决了。
给分吧。 : )

 

R

redboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-19

• #7

多人接受答案了。