动态创建的图片列表如何定位鼠标点击在哪张图片上？ ( 积分: 100 )

O

ohcyj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-09-05

• #1

我使用了动态创建的方式，建立了一个图片数组（array[1..20] of Timage） ,那么当我在界面上点击图片后，如何知道该图片位于数组的哪个分量中呢？

或者有办法当点击图片的时候，改变该图片的位置也可以 。

换句话说，我如何知道现在鼠标点击在哪张图片上呢？

 

W

wuchunhua

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-09-05

• #2

循环不就可以了
Function GetIndex(AImage: TImage):integer;
begin
result := -1 ;
for i:= low(Array) to high(Array) do
begin
if TImage(Array) = AImage then
begin
result := i;
Exit;
end;
end;
end;

//图片点击事件
procedure ImangeOnClick(Sender: TObject);
begin
GetIndex((Sender as TImage));
end;

 

O

ohcyj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-09-05

• #3

非常感谢！