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

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

Обратный отсчет [D7, XP]

Recorderes ©   (2006-08-10 13:46:00) 

Здравствуйте.
Помогите, плиз, реализовать такую вещь. Есть два SpinEdit'a в которых пользователем указываются минуты и секунды. Требуется чтобы таймер вел обратный отсчет. Может кто кинеться примерчиком или компанентой.
Всем спасиБ!

---

Сергей М.   (2006-08-10 15:42:00) [1]

> сорри


сорри = я сожалею
кому интересны, кого трогают твои сожаления о своем "туппизме"?)

экскьюз ми = извините меня
самый тот случай)

В том же самом обработчике события таймера:
label.caption := IntToStr(SpinMin.Value)+':'+IntToStr(SpinSec.Value)+':'

---

Recorderes   (2006-08-10 15:03:00) [2]

а как это сделатьь что б это все еще и отображалось,например в label
сорри за туппизм-)

---

KilkennyCat   (2006-08-10 14:49:00) [3]

> [1] Kolan ©   (10.08.06 13:50)

TDateTime - тута нафиг не нужен.

---

KilkennyCat   (2006-08-10 14:49:00) [4]

ошибся чуть-чуть...
> if SpinMin.Value = 0 then begin
>   showmessage('Бабах!');
>   timer1.enabled := false;
> end;

---

KilkennyCat   (2006-08-10 14:48:00) [5]

в событии таймера:

SpinSec.Value := SpinSec.Value - 1;
if SpinSec.Value = 0 then begin
 SpinMin.Value := SpinMin.Value - 1;
 if SpinSec.Value = 0 then begin
   showmessage('Бабах!');
   timer1.enabled := false;
 end;
 SpinSec.Value := 60;//или 59
end;

---

Сергей М.   (2006-08-10 14:44:00) [6]

В чем у тебя состоит проблема ? Конкретно ..

---

Recorderes   (2006-08-10 14:42:00) [7]

Простите, за назойливость. Но может у кого нибудь есть примерчик....?

---

Kolan   (2006-08-10 13:50:00) [8]

1. TTimer - это для таймера.
2. TDateTime - это для работы со временем.
3. F1 - это для того чтобы понять как работать с 1 и 2.

---

Наверх