TTimer 2 Aktivieren

[musicman56]

Hallo,

es laufen wohl niemals zwei Timer gleichzeitig. Die einzelnen timergesteuerten Ereignisse können also nacheinander vom gleichen Timer erledigt werden. Damit hast du dann auch keine Probleme mit Überschneidungen, die ich zwangsläufig kommen sehe, wenn du mit dem Mediaplayer (verschiedene??) Sounds abspielen möchtest. Z.B. hast du unterschiedliche Ladezeiten bei unterschiedlicher Hardware. Das gibt zwangsläufig irgendwann mal Brühe

Delphi-Quellcode:

procedure TForm1.ErsterTimerEvent(Sender: TObject);
begin
  Timer.Tag := Timer.Tag + 1; // Tag als Hilfsmittel setzen, damit man jederzeit weiß, was der Timer gerade macht
  ...irgendwas tun
  if Timer.Tag > ??? then begin
    Timer.Enabled := false;
    Timer.OnTimer := ZweiterTimerEvent;
    Timer.Interval := 2000;
    Timer.Enabled := true;
  end;
end;

procedure TForm1.ZweiterTimerEvent(Sender: TObject);
begin
  Timer.Tag := Timer.Tag + 1;
   // ...irgendwas tun, z.B. den Mediaplayer starten, der dann das Tag des Timers neu setzt, wenn er FERTIG ist
   // ...Wenn Timer.Tag > "MediaPlayer ist fertig Tag" then TimerStart, TimerStop oder was sonst auch immer
end;

procedure TForm1.TimerStart;
begin
  Timer.Enabled := false;
  Timer.Tag := 0;
  Timer.Interval := 1000;
  Timer.OnTimer := ErsterTimerEvent;
  Timer.Enabled := true;
end;

[Natcree]

danke für euer bemühen.

momentan sieht mein Code noch so aus

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
begin
timer1.enabled:=true;
delay(2200, Application);
timer2.Enabled:=true;
delay(4800, Application);
timer3.enabled:=true;
delay(4500, Application);
timer4.Enabled:=true;
delay(4500, Application);
timer5.Enabled:=true;
end;

die Ersten 4 TImer werden ausgeführt ab dem 5. haengt er und es brauch bald 30 sekunden bevor das letzte Timer.event gestartet wird. Könnte das ein speicher leck sein??

dieser Code wird im timer5.event ausgeführt

Delphi-Quellcode:

procedure TForm2.Timer5Timer(Sender: TObject);
begin
    e:='Geburtsdatum:'+'  '+Dbedit9.text;
    inc(m);
    if m > length(e) then
    begin
    timer5.enabled:=false;
    exit;
    end;
    Canvas.Font.Name := 'CLARENCE'; //Schriftart
    Canvas.Font.Style := [fsBold];  //Fett
    Canvas.Font.Height := 18;       //Schriftgrösse
    canvas.textout(296+m*16,130,e[m]);
    if timer5.enabled=true then mediaplayer1.play else mediaplayer1.stop;
end;

[Natcree]

habe wohl den Auslöser gefunden in meiner mainform wird ein video als Hintergrund abgespielt. das Ganze mit der tmediaplayer komponente. Wenn ich diesen abschalte dann laufen die timer durch. Woran kann das liegen??

[musicman56]

Hallo,

hab ich dir nicht schon vorhergesagt, dass du mit deiner Vorgehensweise Probleme bekommen wirst? Sorry, aber wenn du nicht auf gut gemeinte (und in diesem Fall auch in der Praxis bewährte) Vorschläge eingehen willst, dann macht das für mich keinen Sinn mehr. Ich klinke mich jetzt aus.

[Sir Rufo]

Fraglich ist, ob du überhaupt einen Timer brauchst ...

Wenn der nächste Buchstabe erscheinen soll, wenn der Sound fertig abgespielt ist, dann ist doch der Timer überflüssig.

Im Anhang ein Beispiel wie das ohne Timer gehen würde