Hallo,
Zitat von
jensw_2000:
Die parameterlosen NotifyEvents (z.B. OnStatus) funktionieren alle gut.
Jetzt möchte ich meiner Klasse ein NotifyEvent mit zusätzlichen Parametern hinzufügen (OnLogMessage).
So, wie Du das machst, wird es nicht funktionieren.
Du musst einen neuen Typ deklarieren:
Delphi-Quellcode:
type
TLogEvent = procedure(Sender: TObject; LogMessageType: TLogMessageType;
LogMessageLevel: TLogMessageLevel; LogMessageText: String) of object;
TWorkerThread = class(TThread)
private
...
...
//-- Notify Events
...
FOnStatus : TNotifyEvent;
FOnLogMessage : TLogEvent;
public
// -- Notify Events
...
property OnStatus : TNotifyEvent READ FOnStatus WRITE FOnStatus;
property OnLogMessage: TLogEvent READ FOnLogMessage WRITE FOnLogMessage;
protected
...
end;
Gruß
xaromz