Главная страница
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.066 c
15-1264519606
Igor_guest
2010-01-26 18:26
2010.08.27
распространение продукта на Delphi


2-1271766736
Ванич
2010-04-20 16:32
2010.08.27
TMemo


2-1265975826
ExGen
2010-02-12 14:57
2010.08.27
ADOTable


8-1202991381
Jimmy
2008-02-14 15:16
2010.08.27
Сохранение в psd


2-1274505496
_Alis_
2010-05-22 09:18
2010.08.27
несколько GroupBox-ов