Главная страница
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.052 c
15-1264195828
Юрий
2010-01-23 00:30
2010.08.27
С днем рождения ! 23 января 2010 суббота


15-1273509185
stas
2010-05-10 20:33
2010.08.27
Рантайм пакеты


2-1271164598
Равиль
2010-04-13 17:16
2010.08.27
Не работает SavePictureDialog1.Execute


2-1270109240
Цукор5
2010-04-01 12:07
2010.08.27
Картинка на форме


2-1267513524
MAX
2010-03-02 10:05
2010.08.27
текст на MessageDlg