Timer in Klasse einbinden

[Flare]

Hi!

Ich bin gerade dabei mir eine kleine Klasse selbst zu programmieren und dabei ist mir aufgefallen, dass ich dazu einen Timer brauche, der alle paar (Milli)Sekunden überprüft ob irgendwas gemacht werden muss. Jetzt meine Frage: Wie implementiere ich einen Timer in die Klasse so, dass er eben bei jedem Intervall eine Funktion aufruft?
Ich habe es schon hinbekommen dass es ihn in der Klasse gibt, aber ich konnte ihm keine Funktion/Prozedur auf OnTimer zuweisen.
Oder soll ich es ganz anders machen und diesen Timer dann auf die Form setzen wo die Klasse später mal hinsoll?


Flare

[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;

[Ultimator]

Das inherited vor der ersten eigenen Codezeile im Constructur nicht vergessen

[Die Muhkuh]

Zitat von Ultimator:

Das inherited vor der ersten eigenen Codezeile im Constructur nicht vergessen

Danke

[Flare]

Danke, ich werde es mal ausprobieren, wenn es Fehler gibt melde ich mich nochmal!


Flare

[Hawkeye219]

Noch einige Anmerkungen:

1.) Ein TTimer hat keine Eigenschaft Parent, da es sich nicht um eine sichtbare Komponente handelt. Die Zuweisung an FTimer.Parent muß also entfallen.
2.) Beim Erzeugen des Timers sollte NIL übergeben werden, da die Freigabe ja im Destruktor erfolgt. Dies hat zudem den Vorteil, daß der Owner des Timers nicht zwangsläufig ein TComponent-Nachfolger sein muß.

Es ist auch zu beachten, daß der Timer nach dem Erzeugen "scharf" ist, d.h. nach der eingestellten Zeit die Timer-Routine aufruft. Falls das nicht gewünscht ist, muß man beim Erzeugen die Timer-Eigenschaft Enabled auf den Wert False setzen und den Timer zu einem späteren Zeitpunkt aktivieren.

Gruß Hawkeye

[Die Muhkuh]

Zitat von Hawkeye219:

1.) Ein TTimer hat keine Eigenschaft Parent, da es sich nicht um eine sichtbare Komponente handelt. Die Zuweisung an FTimer.Parent muß also entfallen.
2.) Beim Erzeugen des Timers sollte NIL übergeben werden, da die Freigabe ja im Destruktor erfolgt. Dies hat zudem den Vorteil, daß der Owner des Timers nicht zwangsläufig ein TComponent-Nachfolger sein muß.

Danke, ist verbessert.

[Flare]

Danke nochmals, klappt super, aber erst nachdem das mit dem Parent geändert wurde. Wollte es schon fast schreiben, aber da war ja jemand schneller ^^


Flare