Animation mit TImage!

[City Light]

Anderer Vorschlag nihm eine Gif Animation oder ein Bild! Und versuch mal dieses hier...fühge für Label einfach Image ein..

Delphi-Quellcode:

//Laufschrift von Rechts nach Links 

var 
  h : integer; 

procedure TForm1.Timer1Timer(Sender: TObject); 
begin 
  with Label1 do 
  begin 
    Left := Left -1; 
if Left =(0 -Left){oder 0- Width} then 
    Left := h; 
  end; 
end; 

procedure TForm1.FormResize(Sender: TObject); 
begin 
  h := Form1.ClientWidth -32; 
  Label1.Left := h; 
end;