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]
Wykorzystaj timera i TLabel
procedure OnTimer(Sender: TObject);
begin
Label1.Left := Label1.Left + 8;
end;
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
procedure jakisbutton;
begin
i1:=1;
i2:=1;
timer.enabled:=true;
end;
procedure timer;
begin
if i1>=20 then i2:=2;
if i1
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:)
Cześć Adam:)
Pamiętam, że tu gdzieś był komponent do przesuwania napisu, ale niestety tylko na formie.
Chyba, że trochę przerobisz...
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
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 :)