FAQ » Tekst

Jak zrobić przewijający się tekst na TLabel

Zadeklaruj zmienną globalną Poz w części interface:
var
  Poz: Byte = 0;


Wrzuć na formę Timer i w zdarzeniu OnTimer wpisz:
  Label1.Caption := Copy(Tekst, Poz+1, Length(Tekst)-Poz)+Copy(Tekst, 1, Poz);
  Poz := (Poz + 1) mod Length(Tekst);


Gotowe :)
Jeżeli chcesz by to wyglądało jeszcze ładniej to do Uses dodaj moduł StrUtils, a w OnTimer wpisz:
  Label1.Caption := RightStr(Tekst, Length(Tekst)-Poz)+LeftStr(Tekst, Poz);
  Poz := (Poz + 1) mod Length(Tekst);


Oczywiście Tekst to jest zmienna (lub stała) zawierająca tekst do wyświetlenia. Najlepiej, żeby zawierała spację na końcu, aby wyrazy nie "zlepiały się".

3 komentarze

Drajwer 2003-02-24 18:07

przyda sie do aboutow... heheh zrobie z tego komponent=]

AMS 2003-02-24 14:05

Fajne _____