[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. И ещё можно как уничтожается(На всякий случай )

[NumLock]

обработчик то назначил?

[Ruz]

Объявление массива:

Код:

Bird: array [1..MAX_BIRDS] of TImage;

Создание объекта:

Код:

    Bird[id]:= TImage.Create(FormGame);
    Bird[id].Parent:= FormGame;
    Bird[id].AutoSize:= true;
    //Bird[id].Animate:= true;
    Bird[id].Transparent:= true;
    Bird[id].Tag:= id;

    if BirdSpeed[id] > 0 then
    begin
      Bird[id].Left:= -250;
      Bird[id].Top:= Random(600);
    end else if BirdSpeed[id] < 0 then
    begin
      Bird[id].Left:= FormGame.Width + 150;
      Bird[id].Top:= Random(600);
    end;

    Bird[id].Picture.LoadFromFile('..\res\images\animation\birdA\0.bmp');

Уничтожение, если вылезет за границу окна:

Код:

procedure TFormGame.BirdDestroy(id: integer);
begin
  Bird[id].Destroy;
  BirdSpeed[id]:= 0;
  BirdType[id]:= 'Z';
end;

Клик на изображение:

Код:

procedure TFormGame.BirdClick(Sender: TObject);
var k: integer;
begin
  k:= (Sender as TImage).Tag;

  Case k of
  1 : BirdDestroy(k);
  2 : BirdDestroy(k);
  3 : BirdDestroy(k);
  4 : BirdDestroy(k);
  end;
end;

[NumLock]

так обработчик не задается!

[Ruz]

Объясни, пожалуйста! Как задать обработчик?

[NumLock]

как обычно:

Код:

Image1.OnClick:=ImageClick;

[Ruz]

Код:

Image1.OnClick:= BirdClick

- это работает с одним изображением

Но с массивом типа Bird[i], после запуска программы появляется ошибка.

[Страдалецъ]

Ну вы уж совсем буквально-то не копируйте, адаптируйте под свой код. Применительно к ранее вами данному коду будет так:

Код:

Bird[id]:= TImage.Create(FormGame);
Bird[id].OnClick:= BirdClick;
...

[Ruz]

А все, спасибо, теперь работает. Оказывается я писал это до создания изображения.

Но появилась новая проблема!
У меня при нажатии на изображение оно должно уничтожиться. Проверил: после нажатия выдает ошибку: << Project Project1.exe raised exception class EAccessViolation with message 'Access violation at address 00403365 in module 'Project1.exe'. Read of address 00000001'. Process stopped. Use Step or Run to continue. >>