Назначение и свойства таймера.

Невизуальные компоненты могут быть добавлены в класс формы как с помощью визуального конструктора форм, так и программно. Они, подобно визуальным компонентам -- элементам управления -- содержат свойства, методы и события, но не отображаются визуально.

Одним из невизуальных компонентов является таймер (имя класса TTimer). Его назначение -- запускать некоторую процедуру спустя каждый заданый промежуток времени, если он активен. Активностью таймера управляет его свойство Enabled логического типа, промежуток времени (в миллисекундах) задает свойство Interval целочисленного типа. Запускаемая процедура представляет из себя обработчик события OnTimer.

Следующая программа демонстрирует добавление компонента таймера на форму с помощью конструктора. При нажатии кнопки таймер активизируется и слово, введенное в поле ввода выводится в текстовое поле по буквам. Обратите внимание на необходимость введения переменной формыn, которая с каждым интервалом таймера возрастает на 1 и является номером очередной добавляемой буквы.

Следующая программа демонстрирует алгоритм перевода целых чисел издесятичной системы в двоичную методом последовательного деления на 2. Таймер на форму добавляется программно; при добавлении задаются и все его свойства. Обработчик события OnTimer с каждым интервалом времени выполняет последующее деление и выводит на форму его результаты. По окончании последовательных делений таймер деактивизируется.

procedure TForm1.Button1Click(Sender: TObject);

begin

Nachalo;

n:=StrToInt(Edit1.Text);

Timer1.Enabled := True;

end;

//

//

procedure TForm1.Perevod(Sender: TObject);

var m:integer; s:string;

begin

if n > 0 then

begin

Label2.Visible:=True;

Label3.Visible:=True;

Label4.Visible:=True;

Label5.Visible:=True;

Label6.Visible:=True;

Label7.Visible:=True;

m := n mod 2;

n := n div 2;

Label3.Caption:=IntToStr(n);

Label5.Caption:=IntToStr(m);

Label7.Caption:=Label5.Caption + Label7.Caption;

end

else

begin

Timer1.Enabled := False;

s:= Label7.Caption;

Nachalo;

Label7.Caption := s;

Label7.Visible:=True;

end;

end;

//

//

procedure TForm1.Nachalo;

begin

Label2.Visible:=False;

Label3.Visible:=False;

Label4.Visible:=False;

Label5.Visible:=False;

Label6.Visible:=False;

Label7.Visible:=False;

Label3.Caption:='';

Label5.Caption:='';

Label7.Caption:='';

end;