Здравствуйте! Мне нужна помощь!
Есть свой класс:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
unit func;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils,Graphics;
type
TBase = class
private
x:integer;
y:integer;
bitmap:TBitmap;
public
Constructor Create (x0:integer;y0:integer;bitmap0:Tbitmap);
procedure setX(x0:integer);
procedure setY(y0:integer);
procedure setBitmap(bitmap0:TBitmap);
procedure CLick();
function getX : integer;
function getY : integer;
function getBitmap : TBitmap;
published
end;
TKletka = class(TBase)
end;
TRanenayaKletka = class(TBase)
end;
TUbitayaKletka = class(TBase)
end;
TKorabl = class(TBase)
end;
implementation
{TBase}
constructor TBase.Create(x0:integer;y0:integer;bitmap0:Tbitmap);
begin
x := x0;
y := x0;
bitmap := bitmap0;
end;
procedure TBase.setX(x0:integer);
begin
x := x0;
end;
procedure TBase.setY(y0:integer);
begin
y := y0;
end;
procedure TBase.setBitmap(bitmap0:TBitmap);
begin
bitmap := bitmap0;
end;
function TBase.getX : integer;
begin
Result := x;
end;
function TBase.getY : integer;
begin
Result := y;
end;
function TBase.getBitmap : TBitmap;
begin
Result := bitmap;
end;
end.
В Этом классе надо сделать event OnClick чтобы при клике bitmap элемента на который кликнули менялся.
Все объекты спавнятся динамически.
Вопрос:
Как это сделать?
