Text i eeeyyy takie coś ^^

WItam!

mam pytanie

jak zrobić taki text jak w WInAmpie?? czyli:

taki co sie przesuwa w lewo no wiecie oco mi chodzi ^________
ale bez komponetów :-) ;-) da sie takie coś zrobić???

aha żeby to sie w TLabel ruszało ;-)

uzyj paintBox i timer;

var
text : string;
offset : integer;

timer1.ontimer
begin
dec(offset);
paintbox.canvas.textOut(offset,0,text);
end;

a można inaczej żeby w TLabel siem to działo??

Przy użyciu TLabel mozna by to zrobic ale skokowo, tzn literka po literce. A w TPaintBox możesz płynnie przewijać, więc jak chcesz.

Pochwalony!
Jeżeli dobrze skumałem to chodzi Ci o to żeby co jakiś okres czasu zmieniało się położenie w poziomie label'a.
Jeżeli tak to dodaj zmienną globalną Start typu Boolean i w OnTimer Timer'a wpisz:

var
I: Integer;
begin
if not Start then
I := 1 else
I := -1;
Label1.Left := Label1.Left + I;
case Label1.Left of
0: Start := False;
200: Start := True;
end;
end;

Czy chodziło o to?? :P

Najlepiej zajrzyj tutaj:
http://4programmers.net/view_faq.php?id=272