[delphi] przewijanie

0

mam pytanie: jak zrobic by tekst przewijal sie do gory? tak jak w grach - powoli.
z dolu sie wysuwal i szedl do gory yaki efekt przewijania--if label1.caption = www.programowanie.of.pl then you win!

0

Więc tak ,jeżeli chodzi ci o Label to prosta sprawa :-) :

Umieszczas Timera ustawiasz go na ileś milisekund.
Potem umieszczas label wpisujesz dowolny tekst i teraz kodzik w timerze:

var
y:integer; * To będzie pozycja od góry
begin
label.top:=y; * Label jest od góry o zmienną y
y:=y-1; // Zmniejszamy zmienną y w czego konsekwencji label "jedzie" do góry o 1w ciągu tyknięcia timera proste :-)
A ustaw OnCreate y na na 300 czy na ile chcesz bo inaczej label będzie u samej góry :-)

0

Sorry zapomniałem dodać do kodu end i y ustaw jako globalną zmienną

0

ja korzystam z komponentu ScrollText czy jakos tak czy ScrollBOx z palety LMD..
ma on własciwości TMemo+ [email protected]
POZDRAWIAM
DELPHI RULEZ
NIECH MOCz BĘDZIE Z WAMI
:-))

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