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

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

Напоминалка... [D3, Win95/98]

stupid ©   (2002-05-23 15:49:00) 

Грузонул тут исходник напоминалочки. Все работает, но не могу понять, почему он останавливается не сразу по истечению времени, а спустя несколько секунд (20 или 30, по-разному). Помогите разобраться, я первый раз сталкиваюсь с работай со временем и ничего в этом не понимаю.

//Запуск таймера и скрытие формы
procedure TForm1.Button2Click(Sender: TObject);
var
H,M: string[2];
TimeS: string[8];
Time1,Time2: integer;
begin
SelectFirst;
H:=Copy(MaskEdit1.Text,1,2);
M:=Copy(MaskEdit1.Text,4,2);
Time1:=(StrToInt(H)*60+StrToInt(M))*60;
Hide;
RxTrayIcon1.Enabled:=true;
TimeS:=TimeToStr(Now);
if TimeS[2]=":" then
TimeS:="0"+TimeS;
H:=Copy(TimeS,1,2);
M:=Copy(TimeS,4,2);
Time2:=(StrToInt(H)*60+StrToInt(M))*60;
if Time1<=Time2 then
inc(Time1,24*3600);
Timer1.Interval:=(Time1-Time2)*1000;
Timer1.Enabled:=true;
Form1.Hide;
end;

//Остановка таймера и отображение формы
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled := False;
Form1.Show;
end;

---

stupid   (2002-05-23 17:58:00) [1]

Конечно, хочу!!!!!!!

Мой адрес:
i87@nrcu.gov.ua

Спасибо!

---

[BAD]Angel   (2002-05-23 17:30:00) [2]

procedure TForm1.Timer1Timer(Sender: TObject);
var
Present: TDateTime;
Hour, Min, Sec, MSec: Word;
begin
Present:= now;
DecodeTime(Present,Hour, Min, Sec, MSec);
If (Min=form1.SpinEdit1.Value) and (Hour=form1.SpinEdit2.value) then ShowMessage("Пора вставать!");
end;

Если хошь, пришлю свой исходник с будильником!?

---

stupid   (2002-05-23 17:19:00) [3]

Никто не поможет бедному студенту?

---

Наверх