Laufschrift

[Tryer]

Unter der Annahme das Label1 nie breiter als die Bildschirmseite werden kann:

Delphi-Quellcode:

procedure TForm1.SetzeLauftext(s: string);
begin
  Label1.Caption := s;
  while Label1.Canvas.TextWidth(Label1.Caption) < Screen.ClientWidth do
    Label1.Caption := Label1.Caption + s;
end;

Das erspart die Neuberechnung des zum lückenlosen Füllen benötigten Textes auch bei veränderlicher Breite des Labels.

Grüsse, Dirk