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;