[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: Nionov  
Форум » Программирование » Pascal/Delphi » [Delphi] Прикольно бегающий текст
[Delphi] Прикольно бегающий текст
MilokHopДата: Понедельник, 17.06.2019, 23:45 | Сообщение # 1
Сообщений: 125
Награды: 0
Репутация: 0
Статус:
Код на таймер

Код
procedure TForm1.tmr1Timer(Sender: TObject);
var
first, s:string;
begin
  s :=Label1.Caption;
  first :=s[1];
Delete(s, 1, 1);
Label1.Caption :=s+first;
end;


Интервал 100 вроде хорошо смотрится

В Label делаем в конце пустую строку с пробелом.
 
Форум » Программирование » Pascal/Delphi » [Delphi] Прикольно бегающий текст
  • Страница 1 из 1
  • 1
Поиск: