• Zaloguj się!
• Zarejestruj się!

• Edycja
• Napisz nowy artykuł w tym dziale
• Obserwuj
• Historia i autorzy

Przelatujący tekst na formie

Jak zrobić efekt przesuwającego się napisu , to pytanie nurtowało mnie aż dwie minuty  , gdyż myślałem jak można zrobić to w łatwy sposób . Tak sobie myślę aż tu nagle przebłysk , a może wykorzystał by Timera i labela , no tak przecież możemy postawić labela na formie , a więc przesuwając w taki sposób np . wpisać w labela top= 10 i dodawać to tego jeden czy tam dwa to wtedy label będzie się przesuwał coraz wyżej i wyżej , możemy też zrobić aby przesuwał się w lewo wykorzystując left lub w prawo wykorzystując right . Więc do dzieła wstawiamy na formę timera w interval wpisujemy najlepiej 10 , potem stawiamy labela wpisujemy w pole caption jakiś ładny tekścik , i klikamy w obsługę timera ( procedura ONTIMER ) wpisujemy :

 
label1.Top:=label1.Top+3; // wtedy tekścik będzie latał do góry . - tym najlepiej operować .
label1.top := label1.top - 3 // w dół
label1.left:=label1.left-3; // w lewo.
label1.left:=label1.left+3; //w prawo.
 

O i najlepiej by było aby ustawić właściwości borderstyle  formy na bsToolWindow .


To by było na tyle . Ale wyczerpujący ten tut , nieprawdaż . Ale prosty sposób na zrobienie przesuwających się napisów .

Pozdrawiam robiko@op.pl


A tutaj sposób na "zapętlenie" tekstu, żęby nie znikał nam ;]

 
  if label1.Left = 0 - label1.Width  then
    label1.Left := form1.Width
  else
    label1.Left := label1.Left - 1;
 

Teraz gdy label całkiem nam się schowa, to zostanie przeniesiony na drugą stronę formy. Fajnie to wygląda ^^.
LeonThePunisher

Napisany 2005-12-31 23:53 przez Piotrekdp

mało niekonkretnie :( zły pomysł

Napisany 2005-04-26 12:11 przez seba22

może by tak dopisać jak to zapetlic zeby teks te latal w kolo macieju ?

Napisany 2003-12-30 14:08 przez Wolverine

o matko : label1.right:=label1.left+3; //w prawo . - BUAHAAHHA!!

Napisany 2003-05-12 18:09 przez Drajwer

jeeeeeej nic dodac nic ując

Napisany 2003-05-09 20:09 przez Deemer

a jest wogóle coś takiego jak Label1.Right ??????
:D...
---->label1.left:=label1.left+3; // w lewo <-----
i chyba jak w lewo to Label1.Left -3; ;)

Napisany 2003-05-06 13:28 przez lofix

Używaj znaczników < delphi i do pisania kodu !! !!

Poza tym jak uważasz że to się przyda to wrzuć to do FAQ