动态创建控件,如何得到这个id值?
procedure Tfmmaininf.img2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
id:integer;
begin
if sender is Timage then
id:=(sender as TImage).Tag
end;
上面得到的id值是0啊,没任何变化!!!
procedure Tfmmaininf.img2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
id:integer;
begin
if sender is Timage then
id:=(sender as TImage).Tag
end;
上面得到的id值是0啊,没任何变化!!!
和动态创建控件有什么关系??