Timer (TTimer) – компонент Delphi

Timer, компонент Delphi, таймер который нужен для отсчета интервалов реального времени. Свойство Interval определяет интервал времени в миллисекундах, по истечению которого, после включения таймера, будет происходить событие onTimer. Таймер включается при установки значения True в свойстве Enable и продолжает свою работу пока свойство Enable  не примет значение False.

Мы задаем интервал (Interval) в миллисекундах, но как сделать так чтобы таймер срабатывать каждую минуту?

Interval:=60000;

Timer_Delphi

Код программы, которая при срабатывании таймера возводит число в степень (j*j):

var
Form3: TForm3;
j,i:integer;
implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
begin
i:=0;
j:=0;
Timer1.Enabled:=True;
j:=strtoint(Edit1.Text);
timer1.Interval:=5000; // 5 секунд
end;

procedure TForm3.Timer1Timer(Sender: TObject);

begin
i:=i+1;
Label2.Caption:=inttostr(i);
j:=j*2;
label4.Caption:=inttostr(j);

end;

end.

0 0 голоса
Рейтинг статьи
Подписаться
Уведомить о
0 Комментарий
Межтекстовые Отзывы
Посмотреть все комментарии