如何得到这个值呢？？

[dengyueguang]

var arrimg:Array[1..5]of TImage;
i:Integer;
begin
For i:= 1 to 5 do
begin
arrimg[i]:=TImage.Create(Self);
arrimg[i].Parent:=Self;
arrimg[i].Top:=10+i*2;
arrimg[i].Left:=10+i*2;
arrimg[i].Picture.LoadFromFile('D:\Image Source\1122.bmp');
end;
end;
我用上面程序在窗体上创建了5个image控件，请教：
当我要移动第2个或者第3个image控件，如何得到这个i值呢？

[dengyueguang]

我的意思是如果我将鼠标放置在任意一个image控件上，
我想拖动任意一个控件如何得到这个索引值呢？

[windindance]

所有的事件中都有Sender:TObject参数
For i:= 1 to 5 do
begin
arrimg[i]:=TImage.Create(Self);
arrimg[i].Parent:=Self;
arrimg[i].Tag := i;

if Sender is TImage then
(Sender as TImage).Tag

[zhuojohn]

procedure TForm1.Image1Click(Sender: TObject);
var
img:TImage;
i:Integer;
begin
img:=Sender as TImage;
i:=(Img.Top-10)div 2;
ShowMessage(Format('No.%d image selected',[i]));
end;

end.

[swayi21]

arrimg[i].Tag := i;

這就是 Tag 屬性存在的一個理由。

[dengyueguang]

还是不行，出错"invalid class typecast "

[dengyueguang]

如果加上
if sender is Timage then
不执行下面的程序
begin
arrimg[i].Tag:=i;
arrimg[i].Top:=p.Y-toolbar1.Height*2;
arrimg[i].Left:=p.x;
arrimg[i].Cursor:=crHandPoint;
end;