如何得到鼠标点中的image的name(50分)

  • 主题发起人 主题发起人 daranfang
  • 开始时间 开始时间
D

daranfang

Unregistered / Unconfirmed
GUEST, unregistred user!
form1中有很多image,请问如何得到如何得到鼠标点中的image的名称。
 
我认为是没法子的,只有编写的时候去找,name属性在执行的时候应该是法子得到
 
使用控件数组
 
我就是用的数组,生成的动态控件,我想取动态image的名字,但不会
 
if Sender is TImage then
Edit1.Text:=TImage(Sender).Name;
 
Imageleft[ls]:=Timage.Create(self);
Imageleft[ls].Parent:=panelchart[ls];
Imageleft[ls].left:=26;
Imageleft[ls].top:=17;
Imageleft[ls].Width:=43;
Imageleft[ls].Height:=105;
Imageleft[ls].Transparent:=true;
Imageleft[j,i].Picture.LoadFromFile('zuo.gif');
以上是我的代码,我定义了一个 labelleft:array[1..50] of Tlabel;
执行if Sender is TImage then
Edit1.Text:=TImage(Sender).Name;
edit1是空的阿
 
为什么动态生成的image没有name?
 
是没有,不过你可以用TAG,也可以设置它的名字
 
呵,delphi动态生成的控件是没有名字的
你应该为他指定名称;
Imageleft[ls]:=Timage.Create(self);
Imageleft[ls].Parent:=panelchart[ls];
Imageleft[ls].name:='img'+inttostr(ls);//加这句
Imageleft[ls].left:=26;
Imageleft[ls].top:=17;
Imageleft[ls].Width:=43;
Imageleft[ls].Height:=105;
Imageleft[ls].Transparent:=true;
Imageleft[j,i].Picture.LoadFromFile('zuo.gif');
 
后退
顶部