Анимация движущегося текста [delphi]

[m0nr]

В продолжение этой темы покажу второй способ анимации текста, без использования ущербных Label1.left:=Label1.left+1; У меня только топовые способы и топовая реализация XD

Вот как выглядит реализация этого способа:

Опять же нам не обойтись без скромного списка компонентов:
TLabel x1
TTimer x1
THands x2

В Label заносим текст который будет крутиться, а до и после него дописываем немного пробелов.

Код на таймер (Интервал подбирайте индивидуально, у меня это 75):

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

А теперь бонус, если вы хотите чтобы эта карусель останавливалась, когда на ней курсор, то в свойствах компонента TLabel пишем это:
На MouseEnter и MouseMove

Timer1.Enabled:=False;

На MouseLeave

Timer1.Enabled:=true;

PROFIT! Это так-же уникальная статья, как и почти всё, что я заливаю.