Eine Procedure von OnTimer Event aufrufen lassen.

[Kostas]

HALT es funkt doch:
Abschrieben sollte man schon können!!!

Delphi-Quellcode:

type 
  TDummyClass = class(TObject)
  public 
    class procedure MyTimerOnTimer(Sender: TObject); 
  end;

...

(*--------------------------------------------------------------------*)
class 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.

Tausend Dank, funkt einwandfrei.

Gruß Kostas