• Registered: 2014-11-13
  • Posts: 325

Topic: Пауза в бегущей строке

Добрый день! Задавал этот вопрос в конце своей темы про бегущую строку, но видимо он там потерялся и стал невидим, поэтому выношу в отдельную тему, надеюсь модератор форума (он же - автор программы) на меня не обидится.

alex842 - подкинул два хороших примера как раскрасить бегущую строку. Я взял пока первый, все работает замечательно, спасибо ему!
А как сделать временную паузу между каждыми  проплытиями всей строки? Проплыла вся строка и скрылась за пределами левой стороны формы, а справа появляется не сразу, как в примере, а, скажем, ч/з 2-3 минуты. а то постоянное движение на экране - отвлекает и утомляет.

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Пауза в бегущей строке

Приветствую,


Доработал проект, заменил

     if Form1.Label4.Left < (-Form1.Label4.Width) then
     begin
         Form1.Label4.Left := Form1.Width;
     end;

на 

     if Form1.Label4.Left < (-Form1.Label4.Width) then
     begin
         Form1.Label4.Left := Form1.Width;
         Timer.Interval := 10000; // пауза 10сек
     end;
Post's attachments

Attachment icon scroling labels2.zip 5.78 kb, 440 downloads since 2014-12-21 

Dmitry.
  • Registered: 2014-11-13
  • Posts: 325

Re: Пауза в бегущей строке

Спасибо большое!