Timerabruf (Timer2) bei Timerablauf (Timer1)

[Jürgen Thomas]

Hallo Svenkan,

noch ein Gedanke, wenn Du wirklich zwei Timer nutzen willst. Das kann sinnvoll sein, wenn ihr Intervall ziemlich unterschiedlich festgelegt wird (z.B. 15 Minuten für Reload und 10 Sekunden für NextTab).

TimerReload wird aktiviert (Enabled := true), nachdem die Daten eingelesen wurden, d.h. am Ende der Prozedur NeueDatenEinlesen.

TimerReloadOnTimer macht nichts anderes als sich zu deaktivieren: TimerReload.Enabled := false;

Die Prüfung innerhalb NextTab wird einfach erweitert, ob TimerReload abgelaufen ist oder nicht, d.h. ob er noch aktiviert ist:

Delphi-Quellcode:

procedure TForm2.TimerNextTabTimer(Sender: TObject);
begin
  case PageControl1.TabIndex of
    0: begin
         PageControl1.TabIndex := 1;
         StringGrid2Zeigen(AktuSeite);
    1: if ((AktuSeite < GesSeiten) or TimerReload.Enabled) 
       //  die vorstehende Abfrage wird erweitert
       then begin
         //  wenn TimerReload noch läuft, dann zurück zu Seite 0
         if (AktuSeite < GesSeiten)
         then Inc(AktuSeite)
         else AktuSeite := 0;
         StringGrid1Zeigen(AktuSeite);
//  alles andere bleibt wie gehabt

Jürgen

PS. Ich weiß nicht, ob Du meine vorigen Beiträge bereits gelesen hast; deshalb trage ich es als neuen Beitrag ein.