Laufschrift an Panelgröße anpassen

[Sunlight7]

Zitat von NamenLozer:

(eleganter gings nicht...)

Es geht schon

Damit kann der Text mehrfach nebeneinander angezeigt werden:

Delphi-Quellcode:

const MyText='Ich wandere von rechts nach links ;-)  ';
      StepWidth=2;
      Space=10;
var x:Integer;
    TextWidth:Integer;

procedure TForm1.FormCreate(Sender: TObject);
begin
   x:=ClientWidth;
   TextWidth:=Canvas.TextWidth(MyText);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
   var temp:Integer;
begin
   Dec(x, StepWidth);
   Refresh;
   temp:=x;
   While temp<ClientWidth do begin
      Canvas.TextOut(temp, 0, MyText);
      Inc(temp, TextWidth+Space);
   end;
   If x<-TextWidth+Space then Inc(x, TextWidth+Space);
end;