Timer eigene Prozedur als Event zuweisen

[Hawkeye219]

Hallo,

wenn du kein Formular hast und keine Objektinstanz erzeugen möchtest, dann kannst du zur Not auch eine class procedure als Eventhandler nehmen:

Delphi-Quellcode:

type
  TTimerHandler = class (TObject)
    class procedure EndeSender (Sender: TObject);
  end;

class procedure TTimerHandler.EndeSender (Sender: TObject);
begin
  // hier deine Aktionen
end;

begin
  Timer := TTimer.Create(nil);
  Timer.OnTimer := TTimerHandler.EndeSender;
end;

Gruß Hawkeye

[himitsu]

da könnte man auch gleich

Delphi-Quellcode:

TMyTimer = class(TTimer)
  procedure EndeSender (Sender: TObject); 
end; 

procedure TMyTimer.EndeSender (Sender: TObject); 
begin 
  // hier deine Aktionen 
end; 

var Timer: TMyTimer;

begin 
  Timer := TMyTimer.Create(nil); 
  Timer.OnTimer := Timer.EndeSender; 
end;

[Hawkeye219]

Stimmt, das wäre auch eine Möglichkeit. So geht's durch den Compiler:

Delphi-Quellcode:

//Timer.OnTimer := TMyHandler.EndeSender; 
Timer.OnTimer := Timer.EndeSender;

Gruß Hawkeye