Текущий архив: 2002.11.14;
Скачать: CL | DM;

Вниз

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

← →
jen_bond   (2002-11-04 22:05) [0]

Подскажите как можно рализовать визуальный(что бы отображался отсчет времени) таймер(на пример на 3 минуты), что бы по завершению происходило какое то событие.Может есть готовые компаненты.
Заранее спасибо.

---

← →
Cobalt ©   (2002-11-04 22:23) [1]

ставишь таймер, метку, кнопку.
var Min3:integer;

procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.enabled:=true;
Min3:=3*60;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption:=Format("%d : %2d",[Min3 div 60, Min3 mod 60 ]);
Dec(Min3);
if Min3<0
then //Что-то делаешь - 3 минуты закончились
end;

---

← →
PycUS   (2002-11-04 23:28) [2]

Код зависит от необходимой точности если надо по минутам то работать с системным временем, если же секунды тогда с таймером!
Выбери - код подкину. Оба лень писать

---

← →
jen_bond   (2002-11-05 21:33) [3]

Спасибо за ответ! Если не сложно таймером!!!

---

← →
Anatoly Podgoretsky ©   (2002-11-05 21:57) [4]

В обработчике запуска таймера

EndTime := Now + StrToTime("03:00:00");
TimerEnabled := True;


В обработчике OnTimer


if Now < EndTime then
Label.Caption := TimeToStr(EndTime - Now);
else begin
TimerEnabled := False;
...
end;


---

Страницы: 1 вся ветка

Текущий архив: 2002.11.14;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.013 c