Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 23.03.2009, 20:49
Improviz Improviz вне форума
Прохожий
 
Регистрация: 25.02.2009
Сообщения: 22
Репутация: 10
По умолчанию Как реализовать таймер в программе?

В программе требуется, чтобы отсчитывалось время в обратном порядке. А по истечении этого времени программа выдавала сообщение "Время истекло" и закрывалась... Подскажите, пожалуйста...
Ответить с цитированием
  #2  
Старый 23.03.2009, 21:15
Аватар для Zigfreed1
Zigfreed1 Zigfreed1 вне форума
Прохожий
 
Регистрация: 08.02.2009
Сообщения: 44
Репутация: 18
По умолчанию

размещаеш timer (вкладка System)
ну например создаеш переменную max
это максимальное время в секундах (думаю как сделать с минутами и часами сам разберешся ) )
время можно выводить в label
в таймере пишеш :
Цитата:
timer1.tag:=timer1.tag+1;
Label1.caption:=inttostr(max-timer1.tag);
if (max-timer1.tag)= 0 then begin
showmessage('Время истекло');
application.terminate;
end;
Ответить с цитированием
  #3  
Старый 23.03.2009, 21:32
Improviz Improviz вне форума
Прохожий
 
Регистрация: 25.02.2009
Сообщения: 22
Репутация: 10
По умолчанию

Спасибо за помощь!
Ответить с цитированием
  #4  
Старый 24.03.2009, 16:28
Improviz Improviz вне форума
Прохожий
 
Регистрация: 25.02.2009
Сообщения: 22
Репутация: 10
По умолчанию

Возник новый вопрос... Как сделать так, чтобы таймер активировался по нажатию кнопки?
Ответить с цитированием
  #5  
Старый 24.03.2009, 17:19
Аватар для TOJluK
TOJluK TOJluK вне форума
Местный
 
Регистрация: 25.02.2009
Адрес: Минск
Сообщения: 551
Версия Delphi: 2007
Репутация: 110
По умолчанию

В событии OnClick кнопки:
Код:
Timer1.Enabled:=True;
Ответить с цитированием
  #6  
Старый 24.03.2009, 17:22
Improviz Improviz вне форума
Прохожий
 
Регистрация: 25.02.2009
Сообщения: 22
Репутация: 10
По умолчанию

Большое спасибо!
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 19:21.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025