Canvas Text löschen

[himitsu]

Und weiter geht's auf http://www.FrankNStein.de/Smiley-Wolke.gif,

Das Intervall könnte man ja so ändern:

Delphi-Quellcode:

  Procedure TForm1.Timer1Timer(Sender: TObject); 
    Begin 
      If Timer1.Tag = 0 Then Begin 
        (* Text zeichnen *) 
        Font.Color := clBlack; 
        Timer1.Tag := 1; 
{}      Timer1.Interval := 1000;
      End Else Begin 
        (* Text löschen *) 
        Font.Color := clWhite; 
        Timer1.Tag := 0; 
{}      Timer1.Interval := 5000;
      End; 
      Canv.TextOut(Screen.Width div 2 - Canv.TextWidth(Nachricht) div 2, 
        Screen.Height div 2 - Canv.TextHeight(Nachricht) div 2, Nachricht); 
    End;

http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif