Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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
3-45733
leshik
2002-10-24 13:28
2002.11.14
Как в запросе использовать результат другого запроса?


14-46151
Ajax
2002-10-27 20:43
2002.11.14
CD-ROM versus CD-RW


14-46115
brestmarket
2002-10-25 21:45
2002.11.14
Помогите пожалуйста с DBISAM Delphi 6 - обещаю купить!!!


1-45894
jen_bond
2002-11-04 22:05
2002.11.14
Timer


1-45824
xnum
2002-11-05 10:43
2002.11.14
runtime packages