[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: Nionov  
Форум » Программирование » Pascal/Delphi » [Delphi] Таймер на Tlabel
[Delphi] Таймер на Tlabel
RainbowДата: Понедельник, 17.06.2019, 23:39 | Сообщение # 1

-= Повелитель кодеров =-
Сообщений: 146
Награды: 0
Репутация: 4279
Статус:
Ставим на форму Label и Таймер

По желанию можно добавить кнопки для запуска и остановки таймера.

Интервал таймера ставим на 1000 (1000 = 1 сек)

Объявляем глобальную переменную (var, тот что вверху)


Код
time:integer;


На FormCreate задаём событие:

Код
time:= 30; {Тут указываем время, в моём случае 30 сек}


На таймер код 

Код
if time = 0 then begin
      tImer1.Enabled:=False;
   Application.MessageBox('Время закончилось', 'Инфа', MB_OK + MB_ICONINFORMATION);
{Тут ваш код}
   end
   else
   begin
     time:=time-1;
     Label1.Caption:=IntToStr(time);
   end;
 
Форум » Программирование » Pascal/Delphi » [Delphi] Таймер на Tlabel
  • Страница 1 из 1
  • 1
Поиск: