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;