Delphi FAQ Tekst

Jak zrobić przewijający się tekst na TLabel

Dryobates

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 komentarzy

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

Fajne _____