Ich habe mehre TTimer die nacheinander aktiviert werden sollen. Im Timer1 siehe code bsp. wird ein text auf die Form geschrieben nun soll wenn der Text mit Canvas.textout geschrieben ist der 2. Timer Aktiviert werden.
Sorry Volker Z.
Ich hatte vor über boolean den 2. Timer zu aktivieren habe es aber nicht hin bekommen.
Wie und wo kann ich in meinen Code den 2.Timer aktivieren ?
Delphi-Quellcode:
procedure TForm2.Timer1Timer(Sender: TObject);
begin
a:='Anrede:'+' Herr';
inc(i);
if i > length(a)then
begin
Canvas.Font.Name := 'CLARENCE'; //Schriftart
Canvas.Font.Style := [fsBold]; //Fett
Canvas.Font.Height := 18; //Schriftgrösse
canvas.textout(296+i*16,32,a[i]);
if timer1.enabled= true then mediaplayer1.play else mediaplayer1.stop;
end;