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]

ОК, СПАСИБО!

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

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

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