code:
var
image:array[1..20] of Timage;
for i:=1 to 10 do
begin
image[i]:=TImage.creat(self);
image[i].tag:=i;
image[i].Onclick:=imageclick;
end;
porcedure imageclick(sender:Tobject)
begin
………………
………………
end;
我想点击任意一个生成的image控件并获得该控件的TAG值,在imageclick事件中的代码该怎么写啊?
var
image:array[1..20] of Timage;
for i:=1 to 10 do
begin
image[i]:=TImage.creat(self);
image[i].tag:=i;
image[i].Onclick:=imageclick;
end;
porcedure imageclick(sender:Tobject)
begin
………………
………………
end;
我想点击任意一个生成的image控件并获得该控件的TAG值,在imageclick事件中的代码该怎么写啊?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货