Scrolltext

[Memo]

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]