Здравствуйте! Мне нужна помощь!
Есть свой класс:



В Этом классе надо сделать event OnClick чтобы при клике bitmap элемента на который кликнули менялся.
Все объекты спавнятся динамически.
Вопрос:
Как это сделать?

_Vasilisk_, То есть мне все надо переделать под image?

_Vasilisk_, Просто мы кликаем не на bitmap, а по объекту, у которого при клике на него применяется процедура setBitmap.

_Vasilisk_, Я делаю игру "морской бой". Код, который я скинул - это модуль, который позволяет контролировать расположение объекта на форме по осям x,y (задавать эти значения или брать их). Для их отображения я использую:
var
Form1: TForm1;
AKletka:array[1..100] of TKletka;
KletkaPic:TBitmap;
ARanenayaKletka:TRanenayaKletka;
AUbitayaKletka:TUbitayaKletka;
AKorabl:TKorabl;
Count : integer;

и


procedure TForm1.NewGame;
var i:integer;
begin
KletkaPic := TBitmap.Create;
KletkaPic.LoadFromFile('green.bmp');
for i := 1 to 100 do
AKletka[i] := TKletka.Create(random(Count)*25,random(Count)*25,KletkaPic);
end;


После рисуем их на форме:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Game;
Repaint;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Count := 20;
Width := Count * 25;
Height := Width;
NewGame;
end;
procedure TForm1.FormPaint(Sender: TObject);
var i:integer;
begin
for i := 1 to 100 do
Canvas.Draw(AKletka[i].getX,AKletka[i].getY,KletkaPic);
end;
Для клеток поля мне надо сделать проверку при клике:
1.Есть ли в этой клетке корабль
2.Если есть то менять bitmap клетки на другой(ранил).
3.Если нет то менять bitmap на третий(промазал).
P.S:Еще я не стал скидывать ужасный код который выводит на экран 100 клеток с разным расположением 10x10.

_Vasilisk_,
Вот результат:

wadman, Мне хотелось бы понять, в чем отличие TImage и TBitmap? Почему и то и то может отображать картинку, но в TImage есть event-ы а в TBitmap нет. Возможно мой вопрос глупый, но lazarus я изучаю месяц и раньше с подобными проблемами не сталкивался при создании Snake или Doodle Jump.

wadman,alecsvp, Спасибо большое за ответ!