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]

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

В обработчике запуска таймера
EndTime := Now + StrToTime("03:00:00"); TimerEnabled := True;

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

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

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