Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.14;
Скачать: [xml.tar.bz2];




Вниз

Помогите чайнику с Таймером 


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;




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.14;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.013 c
4-42616           Kyd                   2001-11-13 11:18  2002.01.14  
SendMessage(MyHandle, WM_SetText, 0, Integer(TextToSet));


1-42505           JetPaul               2001-12-26 10:29  2002.01.14  
Перевести программу с VB на Delphi


14-42572          Donal                 2001-11-16 17:19  2002.01.14  
а вот такой вопрос :-)


1-42430           Shoo                  2001-12-24 11:04  2002.01.14  
TLabeledEdit для Delphi 5


14-42547          vasco                 2001-11-19 02:39  2002.01.14  
Выравнивание по ширине в hlp-файле...