Senkrechte / Waagrechte Laufschrift

[City Light]

Wie erstelle ich eine Laufschrift

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;