动态创建的Timage图片更换问题
在系统中动态创建TImage Timge.Create(self),动态加载图片。
新创建的Timage的属性PopupMenu都设置为Pop1;Pop1的功能是更换图片,在Pop1Click中怎么知道目前操作的是那幅图片?
并把图片更换掉。
[解决办法]
case (Sender as TImage).tag of
...
end;
[解决办法]
name属性就是唯一的,tag属性也行,在Image的MouseDown事件用一个全局变量保存此值,Pop1Click时就可以判断了
[解决办法]
var img : TImage
begin
img := (TMenuItem(Sender).GetParentMenu as TPopupMenu).PopupComponent as TImage;
ShowMessage(Img.Name);
end