TTimer 2 Aktivieren

[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. :hi:

[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