Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

TTimer

SIV5000 © (2010-05-31 18:04:00)
Народ привет. Подскажите, как узнать текущее значение таймера. Например, по таймеру запускаем процедуру, таймер ставлю на 60 сек.
Нужно отобразить сколько времени прошло (или можно осталось), не используя сторонних таймеров.

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

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

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

SIV5000 (2010-06-01 00:55:00) [2]
ОК, СПАСИБО!

Anatoly Podgoretsky (2010-05-31 23:51:00) [3]
> Юрий Зотов (31.05.2010 20:44:04) [4]

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

Юрий Зотов (2010-05-31 20:44:00) [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 18:46:00) [5]
Узнать значение невозможно, но можно узнать сколько прошло, сколько осталось, если поставить маленький интервал и отсчитывать время от базы или от окончания.

Leonid Troyanovsky (2010-05-31 18:22:00) [6]

> SIV5000 (31.05.10 18:04)

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

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

--
Regards, LVT.

Медвежонок Пятачок (2010-05-31 18:06:00) [7]
у таймера нет никого значения.
есть только свойства методы и события

Наверх

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