Event in einer Class programmieren

[taaktaak]

Moin, Moin.

Kommt auf das Event an, du willst ein individuelles Event erstellen. Also zuerst eine Typdefinition:
TMyDataEvent = procedure(Data:String) of Object; Danach muss ein Methodenzeiger im private-Abschnitt bereitgestellt werden:

Delphi-Quellcode:

private
  FOnData : TMyDataEvent

Danach im published-Abschnitt die Eigenschaft für das Ereignis definieren:

Delphi-Quellcode:

published
  property OnData : TMyDataEvent read FOnData write FOnData

Das sollte eigentlich schon alles sein.

Na, nicht ganz, der Aufruf fehlt nun noch:
if Assigned(FOnData) then FOnData(Self,'mein string'); // edit: Jens hat Recht, der Aufruf sollte noch dabei sein