Animacja przesuwajacego sie napisu w Panel1.Caption

0

jak zrobic animacje przesuwajacego sie napisu ? tzn zeby w Panel1.caption albo Form1.Caption
zeby jakis tekst w caption przesuwal sie w lewo czy w prawo:)
dzieki za odpowiedzi!! [browar]

0

Wykorzystaj timera i TLabel

procedure OnTimer(Sender: TObject);
begin
Label1.Left := Label1.Left + 8;
end;

0

hahaha :) dobre !!! tak Robiłem i to barziej skomplikowane CHODZI MI ZEBY NAPIS NA PANEL1 SIE PRZESUWAŁ TYLKO ZE TO MA BYC ANIMACJA TZN PANEL1.CAPTION tam ma Byc animacja :) heh
nie zrozumiałes mnie

0

procedure jakisbutton;
begin
i1:=1;
i2:=1;
timer.enabled:=true;
end;

procedure timer;
begin
if i1>=20 then i2:=2;
if i1

0

wesoledi ale co to jest te i,i1,i2 ???
var
i,i1,i2 : integer;
dałem to jako integer ale to nie działa ! [???]
chodzi mi to taki efekt jak nazwa mp3 odtwarzanej w winampie przesuwa sie w lewo:)

0

Cześć Adam:)

Pamiętam, że tu gdzieś był komponent do przesuwania napisu, ale niestety tylko na formie.
Chyba, że trochę przerobisz...

0

wesoledi ale co to jest te i,i1,i2 ???
var
i,i1,i2 : integer;
dałem to jako integer ale to nie działa ! [???]
chodzi mi to taki efekt jak nazwa mp3 odtwarzanej w winampie przesuwa sie w lewo:)

to powinno dzialac
u mnie dziala
tekst sie bedzie odbijal

0

wesoledi to daj mi caly kod moze o czyms zapomniałem ... chetnie przejrze :)
dzieki !
jak widziales w winampie ten tekst co sie przesuwa w lewo co odtwarzasz mp3 to wlasnie mi chodzi o taki efekt
ja robilem to tak
dalem na forme panel1 i na niego label i ten label mial caption=opendialog1.filename;+ czas mp3 tej
no i on sie przesuwal i jesli mial left - 500 poza panel to przenosilo go na left= 400 i tak on przelatywal ale to co jakis czas on przechodzil bo czasem byl dlugi ten tekst a czasm b.krutki
wiec przyda sie cos nowego :)
dzieki za odp :)

1 użytkowników online, w tym zalogowanych: 0, gości: 1