Напоминалка...

← →
stupid (2002-05-23 15:49) [0]

Грузонул тут исходник напоминалочки. Все работает, но не могу понять, почему он останавливается не сразу по истечению времени, а спустя несколько секунд (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:19) [1]

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

← →
[BAD]Angel © (2002-05-23 17:30) [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:58) [3]

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

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

Спасибо!

Напоминалка... Найти похожие ветки