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

Создадим программу вывода бегущей строки, которая выводится в заголовке формы (рис. 8.1.3.1).

Рис. 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)) +

Copy (Form1.Caption,1,1);

end;

Дата добавления: 2014-12-08