Форум: "Основная";
Текущий архив: 2002.06.06;
Скачать: [xml.tar.bz2];
ВнизНапоминалка... Найти похожие ветки
← →
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
Спасибо!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.06.06;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.006 c