Timer in Klasse einbinden

[Die Muhkuh]

Hi Flare,

das hier ist aus dem Kopf getippt:

Delphi-Quellcode:

TDeineKlasse = class(DeinVorfahre)
procedure OnMyTimer(Sender: TObject);  // Bitte beachten, wo das steht
private
  FTimer: TTimer;
public
  constructor Create;  // Hier evtl. noch Parameter anpassen, je nach Vorfahre halt :)
  destructor Destroy; override; 
end;

implementation

constructor TDeineKlasse.Create;
begin
  inherited;
  FTimer := TTimer.Create(nil);
  FTimer.Interval := 500; // alle 500 Millisekunden was tun
  FTimer.OnTimer := OnMyTimer;
end;

destructor TDeineKlasse.Destroy;
begin
  FTimer.Free;
  inherited;
end;

procedure TDeineKlasse.OnMyTimer(Sender: TObject);
begin
  // Hier deinen Code ausführen.
end;