Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.063 c