Hallo,
ich habe folgenden Code (in Ausschnitten):
Delphi-Quellcode:
type
TAgentStatusLogger = class(TObject)
private
saveTimer: TTimer;
public
procedure saveLogList(Sender: TObject);
constructor Create(LogFile: string);
end;
implementation
constructor TAgentStatusLogger.Create(LogFile: string);
begin
inherited Create;
saveTimer:= TTimer.Create(nil);
saveTimer.OnTimer:= saveLogList;
saveTimer.Interval:= 20;
saveTimer.Enabled:= True;
end;
procedure TAgentStatusLogger.saveLogList(Sender: TObject);
begin
...
end;
Nun bin ich darauf gestoßen, dass TTImer ja unbedingt ein TComponent übergeben bekommen möchte. Da ich kein solches habe, hab ich einfach mal nil übergeben. Hat nicht funktioniert. Problem ist, das die Methode saveLogList nie aufgerufen wird. Ich dachte mir dass es vlt. genau daran liegt und habe meine Klasse testweise von TComponent abgeleitet und Self an den TTimer Konstruktor übergeben, aber auch da wird das OnTimer-Ereignis nicht ausgelöst. Was kann ich hier falsch gemacht haben?
Gruß
Marco