Текущий архив: 2002.01.14;
Скачать: CL | DM;
Вниз
Помогите чайнику с Таймером Найти похожие ветки
← →
dva © (2001-12-25 23:03) [0]Помогите пожалуйста заставить TTimer тикать назад. Или каким другим способом отсчитывать время обратно.
← →
Вадим © (2001-12-25 23:35) [1]Ставишь глобальную переменную и в OnTimer вычитаешь из нее еденицу. Трудно подумать?
← →
MBo © (2001-12-26 07:25) [2]если надо сделать, как на бомбе с часовым механизмом, то можно так
var
t:ttime;
procedure TForm1.StartButtonClick(Sender: TObject);
var numsec:integer;
begin
numsec:=600;
t:=numsec/secsperday;
timer1.enabled:=true;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
t:=t-timer1.Interval/(1000*secsperday);
label1.caption:=timetostr(t);
//if abs(t)<0.000001 then BigBang
end;
Страницы: 1 вся ветка
Текущий архив: 2002.01.14;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.037 c
