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

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

Как из Label сделать таймер? [D7, XP]


Lebedev ©   (2007-10-21 10:18:00) 

Подскажите пожалуйста, как сделать так, чтобы label отображала отсчёт времени в секундах, если на форме есть компонент Timer. То есть, если таймер установлен на минуту (timer1.intervar:=60000), то чтобы на метке в этот момент происходило уменьшение числа с 60 до 0.


Lebedev   (2007-10-21 16:26:00) [1]

Спасибо!


Virgo_Style   (2007-10-21 10:42:00) [2]

Lebedev   (21.10.07 10:18)

Timer.Interval:=1000;
Timer.Tag:=60;


OnTimer:
Timer.Tag:=Timer.Tag-1;
Label.Caption:=Timer.Tag;
if Timer.Tag=0 then begin
 Timer.Enabled:=false;
 Boooom; //сработало
end;


как-то так.


Наверх

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