[Ruz]

У меня есть некий массив TImage. Как определить, что пользователь кликнул на одно из изображений мышкой?

[NumLock]

храни в свойстве Tag индекс TImage в массиве

[Ruz]

Я читал где-то про подобное решение, но так и не понял, как его реализовать? У меня массив из TImage они создаются программно. Быстро двигаются и часто уничтожаются.

Я не понял, а что мне писать вместо Image1Click?

Код:

Bird[i].Tag:= i;

Код:

procedure TForm1.Image1Click(Sender: TObject);
var k:integer;
begin
k:=(Sender as TImage).Tag;
 
Case k of
1:ShowMessage('Вы нажали на Img с номером 1');
2:ShowMessage('Вы нажали на Img с номером 2');
end;
 
end;

[NumLock]

ну это и оставь

[Ruz]

Нет, не работает...

[ined]

Можно отрывок кода, как создаётся массив TImage. И ещё можно как уничтожается(На всякий случай )