Edit Animation

Erklärung
Mit diesem Code kann man eine kleine Animation in einem Editfeld erzeugen.
Am Anfang die Stringlist initialisieren und die Sätzchen hinzufügen. In der Timer Funktion wird der String zerpflückt und nacheinander wieder zusammengesetzt. Bei folgender Zeile kann man bestimmen, wie lang zwischen den Texten Pause gemacht werden soll:

 if iTimer = length(STimer.Strings[IT2])+7then (Stelle mit Pfeil)

Quelltext

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

~~>
 
 
 
 
 
 
 
 
 
 
 
 
 
 

 

 var iTimer,it2: integer;
    sTimer:Tstringlist;

procedure TForm1.FormCreate(Sender: TObject);
begin
     STimer := TStringList.Create;
     STimer.Add('(c) CFS-Technologies');
     STimer.Add('Surft auf www.IQis4U.de');
     STimer.Add(':-) :-) :-)');
     STimer.Add('Coole Animation');
     Stimer.Add('DELPHI rules');
     Edit1.color := clWhite;
     Edit1.Font.color := $00C08000;
     Edit1.ReadOnly := true;
end;
 

procedure TForm1.Timer1Timer(Sender: TObject);
var s:string;

begin
     s:= STimer.Strings[IT2];
     iTimer:=iTimer+1;
     if iTimer <= length(s) then Edit1.Text := Edit1.text + S[iTimer];
    if iTimer = length(STimer.Strings[IT2])+7then
     Begin
       Edit1.text := '';
       IT2 := IT2+1;
       iTimer := 0;
      if Edit1.Color = $00C08000 then
      Begin
         Edit1.color := clWhite;
         Edit1.Font.color := $00C08000;
      end else
       Begin
         Edit1.Color := $00C08000;
         Edit1.Font.Color := clWhite;
      end;
   end;
   if IT2 = STimer.Count then IT2 := 0;
end;