如何使用sender(50分)

党

党sir

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-09

• #1

我程序有好多image需要响应类似的事件，我像运用sender识别不同的image,不知如何做？

 

C

caidaoli

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-09

• #2

设置image.tag为不同的值
procedure image1.image1Click(sender:Tobject);
begin
if sender is TIamge then
case TImage(Sender).tag of
0:
begin
end;
1:
begin
end;
.....
end;
end;

 

D

Dephic

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-09

• #3

也可以这样：
procedure image1.image1Click(sender:Tobject);
begin
if Sender=image1 then
begin
……
end else
if Sender=image2 then
begin
……
end else
。
。
。
end;

 

党

党sir

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-10

• #4

接受答案了.