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


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

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

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

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

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

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

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

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), пишем: