Label Ticker als Buchstaben-Laufschrift

[City Light]

Zitat von Chriss:

unter laufschrift verstehe ich, dass die buchstaben von rechts kommen und nach links durchgegeben werden, irgendwann verschwinden, oder irre ich da?!
wie bekommt man sowas denn hin?

Das machst du so

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) then
    Left := h;
  end;
end;

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

Gruß Tino