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
