Текущий архив: 2006.09.03;
Скачать: CL | DM;
Вниз
Обратный отсчет Найти похожие ветки
← →
Recorderes (2006-08-10 13:46) [0]Здравствуйте.
Помогите, плиз, реализовать такую вещь. Есть два SpinEdit"a в которых пользователем указываются минуты и секунды. Требуется чтобы таймер вел обратный отсчет. Может кто кинеться примерчиком или компанентой.
Всем спасиБ!
← →
Kolan © (2006-08-10 13:50) [1]1. TTimer - это для таймера.
2. TDateTime - это для работы со временем.
3. F1 - это для того чтобы понять как работать с 1 и 2.
← →
Recorderes (2006-08-10 14:42) [2]Простите, за назойливость. Но может у кого нибудь есть примерчик....?
← →
Сергей М. © (2006-08-10 14:44) [3]В чем у тебя состоит проблема ? Конкретно ..
← →
KilkennyCat © (2006-08-10 14:48) [4]в событии таймера:
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;
← →
KilkennyCat © (2006-08-10 14:49) [5]> [1] Kolan © (10.08.06 13:50)
TDateTime - тута нафиг не нужен.
← →
KilkennyCat © (2006-08-10 14:49) [6]ошибся чуть-чуть...
> if SpinMin.Value = 0 then begin
> showmessage("Бабах!");
> timer1.enabled := false;
> end;
← →
Recorderes (2006-08-10 15:03) [7]а как это сделатьь что б это все еще и отображалось,например в label
сорри за туппизм-)
← →
Сергей М. © (2006-08-10 15:42) [8]
> сорри
сорри = я сожалею
кому интересны, кого трогают твои сожаления о своем "туппизме"?)
экскьюз ми = извините меня
самый тот случай)
В том же самом обработчике события таймера:
label.caption := IntToStr(SpinMin.Value)+":"+IntToStr(SpinSec.Value)+":"
Страницы: 1 вся ветка
Текущий архив: 2006.09.03;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.031 c
