Dank erstmal für die Hilfe.
So habe ich es versucht und bekomme die Fehlermeldung:
Inkompatible Typen: TNotifyEvent und Procedure.
Irgend eine Idee?
Gruß Kostas
Delphi-Quellcode:
...
type
TDummyClass = class(TObject)
public
procedure MyTimerOnTimer(Sender: TObject);
end;
implementation
procedure TDummyClass.MyTimerOnTimer(Sender: TObject);
begin
MyTimer.Enabled := false;
CheckUser;
MyTimer.Enabled := true;
end;
initialization
MyTimer := TTimer.Create(Application);
MyTimer.Interval := 10000;
MyTimer.OnTimer := TDummyClass.MyTimerOnTimer;
MyTimer.Enabled := true;
finalization
MyTimer.Enabled := false;
end.