Die parameterlosen NotifyEvents (z.B. OnStatus) funktionieren alle gut.
Jetzt möchte ich meiner Klasse ein NotifyEvent mit zusätzlichen Parametern hinzufügen (OnLogMessage).
Wenn ich versuche Parameter zu dem NotiifyEvent hinzuzufügen, kann ich das Projekt nicht mehr compilieren.
Fehler:
Code:
Eigenschaft 'OnLogMessage' existiert nicht in der Basisklasse.
Natürlich gibt es kein Event "OnLogMessage" in der Basisklasse TThread. Es gibt aber auch kein Event namens "OnStatus". Warum wird "OnStatus" nicht angemeckert und was muss ich machen, um "OnLogMessage(<Params>)" richtig zu deklarieren ?
Delphi-Quellcode:
Type
TWorkerThread = class(TThread)
private
...
...
//-- Notify Events
...
FOnStatus : TNotifyEvent;
FOnLogMessage : TNotifyEvent;
public
// -- Notify Events
...
property OnStatus : TNotifyEvent READ FOnStatus WRITE FOnStatus;
property OnLogMessage(
Sender:TObject;
LogMessageType: TLogMessageType;
LogMessageLevel: TLogMessageLevel;
LogMessageText: String
) : TNotifyEvent READ FOnLogMessage WRITE FOnLogMessage;
protected
...
end;
Schöne Grüße,
Jens
