W jaki sposób we własnej klasie wywołać zdarzenie OnTimer klasy TTimer.
Napisałem klasę TMrowka, która porusza się w pozimie w lewo i w prawo. Aby mrówka się "poruszała" użyłem zdarzenia OnTimer komponentu TTimer. Komponent TTimer umieszczony jest na formie.
Czy możliwe jest, aby każdy obiekt Mrówka miał własny "zegar" i wg. własnego zegara się poruszał? Jak wywołać zdarzenie OnTimer w klasie TMrówka?
TMrowka = class
private
FX: Integer;
FWLewo: Boolean;
Shape: TShape;
procedure SetX(const Value: Integer);
procedure SetWLewo(const Value: Boolean);
public
property X: Integer read FX write SetX;
property WLewo: Boolean read FWLewo write SetWLewo;
procedure ZmienKierunek;
procedure Krok(AOdleglosc: Integer);
procedure Update;
constructor Create(AX: Integer; AOwner: TObject; AWLewo: Boolean=True);
end;
A może jest jeszcze inny sposób, aby mrówka sama myślała?