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

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

Помогите чайнику с Таймером [D5, Win95/98]

dva ©   (2001-12-25 23:03:00) 

Помогите пожалуйста заставить TTimer тикать назад. Или каким другим способом отсчитывать время обратно.

---

MBo   (2001-12-26 07:25:00) [1]

если надо сделать, как на бомбе с часовым механизмом, то можно так
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;

---

Вадим   (2001-12-25 23:35:00) [2]

Ставишь глобальную переменную и в OnTimer вычитаешь из нее еденицу. Трудно подумать?

---

Наверх