Hi,
es handelt sich um einen Methodenzeiger. Das heißt du kannst TDirChangeEvent als Variable deklarieren, der du eine Methode gleicher Signatur zu weisen kannst.
Ein typisches Beispiel wie man damit arbeitet kennst du sicherlich, denn die Ereignisse in Delphi basieren auf genau diesen Methodenzeigern. Allerdings legt hier der
OI (wenn du es nicht per Hand machst) automatisch die entsprechende Methode an und weißt die zu.
Es gibt auch noch Funktionszeiger (ohne of Object). Einem Methodenzeiger musst du halt eine Methode (Prozedur oder Funktion eines Objekts) einem Funktionszeiger eine Funktion (die direkt in einer
Unit liegt, ohne Klasse) zuweisen.
Soviel zur Theorie, es folgt die Praxis:
Delphi-Quellcode:
Type
TDirChangeEvent = Procedure(Sender: TObject; Const aChangedFile : String) Of Object;
TDeineThreadKlasse = class(TObject)
public
dirChangeEvent = TDirChangeEvent; // natürlich schöner mit Properties!
end;
TDeineEreignisbehandlungsKlasse = class(TObject)
public
procedure OnDirChange(Sender : TObject; const aChangedFile : String);
end;
So, jetzt siehst du hier, dass TDeineThreadKlasse eine Variable von diesem Typ hat. Das heißt, dirChageEvent kann auf eine solche Methode zeigen. TDeineEreignisbehandlungsklasse besitzt eine Mehtode mit passender Signatur, du kannst diese jetzt direkt zuweisen:
Delphi-Quellcode:
var thread : TDeineThreadKlasse;
event : TDeineEreignisbehandlungsKlasse;
begin
// anlegen der instanzen
...
thread.dirChangeEvent := event.OnDirChange;
end;
Tritt jetzt ein Ereignis in TDeineThreadKlasse auf, so schaut diese Klasse ob dirChangeEvent zugewiesen wurde (Adresse <> nil). Ist dies der Fall, wird die Methode (auf die diese Variable zeigt) aufgerufen
Delphi-Quellcode:
procedure TDeineThreadKlasse.DirChanged;
begin
if assigned(self.DirChangeEvent) then
begin
self.DirChangeEvent(self, <Geändertes File>);
end;
end;
Das selbe geschieht zum Beispiel auch, wenn du auf andere Events in Delphi reagieren möchtest (OnMouseMove, OnMouseDown, OnKeyUp, ...)
Gruß Der Unwissende