Бегущая строка на Delphi

Реализация бегущей строки на Delphi

Отличие от многих других вариантов предложенных в интернете, заключается в возможности корректного редактирования содержания строки пользователем. А именно, данные вводятся в одно место, а их текучесть отображается в другом.

Итак, приступим:

1) Кидаем на форму 1 – компонент Timer, 1 – компонент Label, 2 – компонента Edit, и 4 – компонента Button

2)  Очищаем свойство Text у компонентов Edit, в свойстве Caption у Label – пишем фразу: – Введите текст, в свойстве Caption у формы пишем: – Бегущая строка, а в Caption у Button 1 по 4, пишем: Редактировать, Пуск влево, Пуск вправо и Ok – соответственно;

3) Располагаем компоненты на форме, примерно так (см. рисунок ниже):

Бегущая строка на делфи

4) Меняем цвет у Label1, для этого в его свойстве Color, выбираем цвет – clLime, в свойстве Font – color, выбираем – clYellow, а cвойство ReadOnly ставим в – false.

5) Объявим глобальные переменные:

а в раздел Uses, пропишем – XpMan;

6) В событии OnCreate на форме пишем:

7) Переходим к Timer1, его свойство Interval ставим в – 250, и создаем на нем обработчик событий OnTimer:

8) В обработчике событий на Button1 (Редактировать), пишем:

9) В обработчике событий на Button2 (Пуск влево), пишем:

10) В обработчике событий на Button3 (Пуск вправо), пишем:

11) В обработчике событий на Button4 (Ok), пишем: