动态创建控件,如何得到这个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啊,没任何变化!!!
...全文
1112打赏收藏
动态控件的索引值怎么得到?
动态创建控件,如何得到这个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啊,没任何变化!!!