Timer, компонент Delphi, таймер который нужен для отсчета интервалов реального времени. Свойство Interval определяет интервал времени в миллисекундах, по истечению которого, после включения таймера, будет происходить событие onTimer. Таймер включается при установки значения True в свойстве Enable и продолжает свою работу пока свойство Enable не примет значение False.
Мы задаем интервал (Interval) в миллисекундах, но как сделать так чтобы таймер срабатывать каждую минуту?
Interval:=60000;
Код программы, которая при срабатывании таймера возводит число в степень (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.
