kannst des so machn
Delphi-Quellcode:
type TScollingLabel = class(TPanel)
text: String;
xpos: integer;
ticker: TTimer;
Constructor Create(...);
private
procedure TimerInt(Sender:TObject);
end;
[...]
und beim Timer dann
Delphi-Quellcode:
TextOut(xpos,0,text);
dec(xpos);
if xpos < [b]-[/b] TextWidth(text)
then xpos := self.width;
code is nur skizziert der einfachheit halber
Edit: du solltest natürlich hinter dem Text ein kleines FillRect hinmalen um zu löschen.
Und bei OnPaint sollte der Text auch gezeichnet werden
Edit2: natürlich mit Minus
