Последние записи

made in programmersforum 8

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

1st
Дек

Таймер с выводом в label отсчёта до определённого времени

Posted by Chas under Пост-обзор

т.е. объявите переменную N где-нибудь глобально
и на FormCreate сделайте N:=128000;

в в процедуре обработки таймера (интервал 1000 мс == 1 сек)
напишите:

procedure TForm3.Timer1Timer(Sender: TObject);
var sec : integer;
begin
   Dec(N);
   if n>=0 then 
   begin
     sec := n div 1000;
     label7.Caption := format(‘%.2d:%.2d’,[sec div 60, sec mod 60]);
   end
   else Timer1.Enable := false; {выключаем таймер, если N стало меньше нуля…}
end;

другой способ:

procedure TForm1.Button2Click(Sender: TObject);
varint: string;
begin
int:=InputBox(‘Интервал времени’,‘Введите интервал в секундах’,‘1’);
  inti:=StrToInt(int);
sec:=1;
  Timer1.Enabled:=True;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption:= format(‘%.2d:%.2d’,[(inti-sec) div 60, (inti-sec) mod 60]);
  Application.ProcessMessages;
  Inc(sec);
  if sec>inti then
    Timer1.Enabled:=False;
end;