Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как заставить таймер считать время назад? [D4, Win95/98]


Анастасия ©   (2002-03-08 13:14:00) 

Наверно, это просто, но я не могу, придумать как. Мне нужно, чтобы таймер отсчитывал 3 часа, показывая оставшееся время, и по окончанию 3 часов ругался как-нибудь :-) Вот собственно и всё. Помогите, кто знает! Заранее спасибо всем.


MBo   (2002-03-10 06:05:00) [1]

TimeLeft:= 3/24 - (Now-StartTime);
Label1.Caption:=TimeToStr(TimeLeft);
if TimeLeft<10e-5 then Bang;


Шрек   (2002-03-10 04:44:00) [2]

Исконно делфийский вариант: найти кой-нибудь компонент для этого, не может чтобы их не было


heruvim4ik   (2002-03-10 00:31:00) [3]

Не в тему, но всё же:
Вы часом на ХакСофте не числитесь под никам Настасья???


SDS   (2002-03-08 13:22:00) [4]

ну поставь таймер на секунду, в часе 60 минут, в минуте 60 секунд
значит в 3-х часах 60*60*3 секунд или 10800 секунд, присвой переменной T := 10800 в таймере ежесекундно уменьшай ее на 1, и показывай оставшее время в секундах, или в минутах, или в часах, только переведи секунды в соответствующее время.


Наверх

Титульная страница Поиск, карта сайта Написать письмо