Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.08.27;
Скачать: CL | DM;

Вниз

TTimer   Найти похожие ветки 

 
SIV5000   (2010-05-31 18:04) [0]

Народ привет. Подскажите, как узнать текущее значение таймера. Например, по таймеру запускаем процедуру, таймер ставлю на 60 сек.
Нужно отобразить сколько времени прошло (или можно осталось), не используя сторонних таймеров.


 
Медвежонок Пятачок ©   (2010-05-31 18:06) [1]

у таймера нет никого значения.
есть только свойства методы и события


 
Leonid Troyanovsky ©   (2010-05-31 18:22) [2]


> SIV5000   (31.05.10 18:04)
 
> Народ привет. Подскажите, как узнать текущее значение таймера.
>  Например, по таймеру запускаем процедуру, таймер ставлю

Пусть таймер сам сообщает свое состояние.
Ставь его не на 60 сек, а на время обновления.

--
Regards, LVT.


 
Anatoly Podgoretsky ©   (2010-05-31 18:46) [3]

Узнать значение невозможно, но можно узнать сколько прошло, сколько осталось, если поставить маленький интервал и отсчитывать время от базы или от окончания.


 
Юрий Зотов ©   (2010-05-31 20:44) [4]

> SIV5000   (31.05.10 18:04)

> Нужно отобразить сколько времени прошло (или можно осталось), не
> используя сторонних таймеров.

Ставим таймер на 1 сек. Далее так:

implementation

var
 N: integer = 60;

procedure TForm1.Timer1OnTimer(Sender: TObject);
begin
 Dec(N);
 if N = 0 then N := 60;
 Label1.Caption := IntToStr(N)
end;


 
Anatoly Podgoretsky ©   (2010-05-31 23:51) [5]

> Юрий Зотов  (31.05.2010 20:44:04)  [4]

Правильнее оперировать с NOW


 
SIV5000   (2010-06-01 00:55) [6]

ОК, СПАСИБО!


 
Германн ©   (2010-06-01 02:06) [7]


> Anatoly Podgoretsky ©   (31.05.10 23:51) [5]
>
> > Юрий Зотов  (31.05.2010 20:44:04)  [4]
>
> Правильнее оперировать с NOW
>

Не согласен. Now нафиг не нужен автору.
(Как мне кажется :).



Страницы: 1 вся ветка

Текущий архив: 2010.08.27;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.047 c
15-1266561272
Kerk
2010-02-19 09:34
2010.08.27
Глобальное потепление


15-1267625221
oldman
2010-03-03 17:07
2010.08.27
Кто нибудь участвует в этом конкурсе?


15-1265923805
Юрий
2010-02-12 00:30
2010.08.27
С днем рождения ! 12 февраля 2010 пятница


15-1264902636
Tuk
2010-01-31 04:50
2010.08.27
Как уменьшить такую конструкцию?


2-1266903094
crank
2010-02-23 08:31
2010.08.27
Нижний индекс в RichEdit