Hej.. Czy jest możliwośc przedefiniowania tak procedury aby mozna było przykładowo dodać swój pramametr ??
Przykład:
Mam Timera i chce do jego znarzenia OnTimer przekazać swój parametr. Czy jest to możliwe ?? Jeśli tak to w jaki sposób ??
Z góry dzieki.
Robisz nowa klase dziedziczaca po TTimer (lub zupelnie nowa, timer nie jest taki trudny w koncu) i nadpisujesz metody, to jest wlasnie cecha programowania obiektowego.
Ewentualnie można przekazywać dodatkowe parametry przez właściwośc Tag - mozliwe że bedzie łatwiej niż robic komponent.
No tak ale jesli proboje zrobic cos na ksztalt:
MojTimer = class(TTimer)
published
procedure Timer(Sender: TObject; PARAM:INTEGER); override;
end;
to dostaje komunikat ze lista parametrow sie nie zgadza
a próbowałeś zamiast override wstawić reintroduce tzn.:
MojTimer = class(TTimer)
published
procedure Timer(Sender: TObject; PARAM:INTEGER); reintroduce;
end;
MojTimer = class(TTimer)
protected
procedure Timer(Sender: TObject; PARAM:INTEGER); dynamic;
end;
Dzieki wielkie wszystkim... [browar] jeszcze byłoby tylko fajne gdyby ktos powiedzial mi jak mam to dalej zastosowac tak zebym pozniej mogl do zdarzenia OnTimer mojej klasy mogl przypisac procedurke z takimi parametrami :>