| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Timer [D6]

jen_bond ©   (2002-11-04 22:05:00) 

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

---

Anatoly Podgoretsky   (2002-11-05 21:57:00) [1]

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

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


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


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


---

jen_bond   (2002-11-05 21:33:00) [2]

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

---

PycUS   (2002-11-04 23:28:00) [3]

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

---

Cobalt   (2002-11-04 22:23:00) [4]

ставишь таймер, метку, кнопку.
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;

---

Наверх