Анимация текста "Суфлёр" [delphi]

[m0nr]

Продолжаю цикл топиков по кастомизации софтов на Delphi.

Выглядеть будет как-то так:

Компоненты:
TTimer x1
TLabel x1

Интервал на таймере рекомендую ставить 80-120 (у меня 100), код на таймер:

var
first, s:string;
begin
  s:=Label1.Caption;
  first:=s[1];
  Delete(s,1,1);
  Label1.Caption:=s+first;
end;

В Label пишем нужный текст, и вначале либо конце добавляем пустую строку.

Profit!
Предыдущие темы:
Анимация "Bruteforce"
Анимация "Бегущая строка"

 

[A'Kon]

Го анимацию извержения белой жидкости из Чулена (:D)