Scrolltext

[Die Muhkuh]

Hi,

wie kann man bei ein Panel oder Label einen Text scrollen lassen?


greetz

Spider

[Tpercon]

Am einfachsten geht das mit einem Timer.

[Matze]

@Spider:
Meinst du eine Art Laufschrift oder das Scrollen wie z.B. bei einem Memo?

[Gandalfus]

canvas.textou();
und
canvas.textwitdh();

dürften dir helfen.

[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]

[Die Muhkuh]

Thanks,
es funtzt