Delphi-Quellcode:
var h: Integer;
...
implementation
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.DoubleBuffered := True;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var l : Integer;
begin
Label1.Left := Label1.Left -1;//die 1 hat auswirkungen auf das Tempo
l := StrToInt('-' + IntToStr(Label1.Canvas.TextWidth(Label1.Caption)));
if Label1.Left < l then
Label1.Left := h;
end;
procedure TForm1.FormResize(Sender: TObject);
begin
h := Form1.ClientWidth;
Label1.Left := h;
end;
Das ganze gab es
hier. Ich hatte es mir aber den Timerteil ein wenig umgeschrieben, weil das Auslaufen des Textes zum Rand nicht wirklich schön war.
[edit=Daniel B]Delphi-Tags korrigiert. Mfg, Daniel B[/edit]