Сообщение в определенное время.

[DIgorevich]

а у таймера-то интервал в 1000 миллисекунд - он не ловит момент, когда

 (chas=13) and (minute=20) and (sekunda=00) and (milisekunda=0)

. попробуй так:

 If (chas=13) and (minute=20) and (sekunda>=00) and (milisekunda>=0) then begin
 showmessage('Обед');

[D.O.G]

У таймера интервал 1 милисикунда. Скрипт работает только программа очень сильно отправляет на обед))) вылетает множество окошек с текстом "Обед".

[DIgorevich]

значит после добавь:

 then begin
 showmessage('Обед');
timer1.enabled:=false;
endl;

[_SERGEYX_]

Я не совсем понял, зачем проверять обед каждую миллисекунду?
Неужели так есть хочется? :=)

[D.O.G]

косяк остался. даже прописание интевала программно не помогло.

Сообщение от _SERGEYX_

Я не совсем понял, зачем проверять обед каждую миллисекунду?
Неужели так есть хочется? :=)

че то я затупил)) ну а как реализовать тогда данную функцию?)) еще надо будет сделать такое же по окончанию рабочего дня)))

[DIgorevich]

Сообщение от D.O.G

че то я затупил)) ну а как реализовать тогда данную функцию?)) еще надо будет сделать такое же по окончанию рабочего дня)))

так же как и была только проверку (секунд, минут, миллисекунд) ставить не равным 0,а

>=0

. И таймер поставить интервал пореже.

[D.O.G]

У меня к этому таймеру подключены еще часы на рабочей форме. в таком формате чч.мм.сс интервал по реже не могу поставить самый минимум это 1000 миллисекунд, а при таком расскладе сообщение появляется через каждую секунду))

[Stilet]

and (sekunda=00) and (milisekunda=0)

Вау. Такая точность, файф-о-клок почти...
Убери это, пусть просто часы и минуты проверяет, ты не попадешь в секунды и миллисекунды.

[D.O.G]

не получается пока. буду дальше юзать((

[D.O.G]

Проблема решена.

 procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Label2.Caption:=TimeToStr(now);
 If FormatDateTime('hh:mm:ss',now)='15:10:00' then showmessage('Обед');
end;