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

Рис. 8.1.3.1. Вид формы с бегущей строкой

Разместим компоненты: Timer1 (Enabled=False, Interval=100), Edit1 (по­ле для ввода текста бегущей строки), ScrollBar1 (регулятор скорости вы­вода строки со свой­ствами (п. 2.3.6.1): Min=10, Max=1000, Position=10, LargeChange=20, SmallChange=10) и кнопки управления.

Приведем тексты процедур программы.

procedure TForm1.Button1Click(Sender: TObject); //кнопка Начать/Законч.

Begin

if Button1.Caption= 'Начать' then // кнопка «Начать»

begin Button1.Caption: = 'Закончить'; // смена наименования кнопки

Edit1.Enabled: = False; Form1.Caption: = Edit1.Text + ' ';

Timer1.Enabled: = True; end

else // кнопка «Закончить»

begin Button1.Caption: = 'Начать'; // смена наименования кнопки

Edit1.Enabled: =True; Timer1.Enabled: = False; Form1.Caption: =''; end;

end;

procedure TForm1.Button2Click(Sender: TObject); // кнопка «Выход»

begin Close; end;

procedure TForm1.Timer1Timer(Sender: TObject); // таймер

begin Timer1.Interval: = ScrollBar1.Min+ScrollBar1.Max-ScrollBar1.Position;

Form1.Caption: =Copy(Form1.Caption, 2, (Length(Form1.Caption)-1)) +

End;