Programowanie w języku Delphi » Gotowce

Przelatujący tekst na formie

  • 2008-01-20 15:59
  • 6 komentarzy
  • 949 odsłon
  • Oceń ten tekst jako pierwszy
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 [email protected]


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

6 komentarzy

Piotrekdp 2005-12-31 23:53

mało niekonkretnie :( zły pomysł

seba22 2005-04-26 12:11

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

Wolverine 2003-12-30 14:08

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

Drajwer 2003-05-12 18:09

jeeeeeej nic dodac nic ując

Deemer 2003-05-09 20:09

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; ;)

lofix 2003-05-06 13:28

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

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