Главная страница Случайная страница
КАТЕГОРИИ:
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
Бегущая строка (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;