Текущий архив: 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.017 c
