Wiem że to podstawy, ale mam z tym problem:
[code]type Zdarzenie = procedure(Sender: TObject);[/code]
I teraz chcę najpierw zrobić jej definicję co ma robić, a potem przekazać do procedury MojaProc tę procedurę (Zdarzenie). Jak to zrobić?
[b]modyfikacja 1.4.2003[/b]
Jak przekazać procedurę do procedury, jakiś przykład?
deklarujesz
np
private
FZdarzenie : TZdarzenie;
published
property onZdarzenie : TZdarzenie read FZdarzenie write FZdarzenie;
gdzieś tam gdzie zachodzi zdarzenie piszesz
if FZdarzenie nil then
FZdarzenie;
Myślę, że wystarczyłoby użyć wskaźnika do procedury.
deklarujesz
procedure zdarzenie(sender : tobject);
procedure byleco(var cos : TZdarzenie);
a przekazanie do procedury to
byleco(@Zdarzenie(self)); ewentualnie bez małpy w zaleznosci jak masz ustawione opcje w kompilatorze