Как обрабатывать сообщение отсутствия действий в окне?

[anyx]

Как обрабатывать сообщение отсутствия действий в окне? Вообще, есть ли такое сообщение у Винды? Application.OnIdle - это не то. Он работает только когда есть какие-нибудь события, например, движение мыши. А как в Дельфе раелизовать полноценный OnIdle?

[Пепел Феникса]

Он работает только когда есть какие-нибудь события, например, движение мыши.

вообще то наоборот, когда нет сообщений(следовательно событий) оно и вызывается.

ну при отказе от vcl это легко делается(если OnIdle делает не тоже самое)

[anyx]

Сообщение от Пепел Феникса

ну при отказе от vcl это легко делается

=) Понимаю. Это будет, но потом. Пока я к такому не готов (и мой движок). Нужна рабочая обработка события, пока на VCL.

[An1ka]

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

Как обрабатывать сообщение отсутствия действий в окне? Вообще, есть ли такое сообщение у Винды? Application.OnIdle - это не то. Он работает только когда есть какие-нибудь события, например, движение мыши. А как в Дельфе раелизовать полноценный OnIdle?

Проверка BOOL WINAPI PeekMessage - false возвращает, если нету сообщений. http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx
Просто цикл сделай "бесконечный". Только Application.ProcessMessages();
вызывай временами, чтобы сообщения обрабатывались. А в остальном твой код "крутиться" будет.

[anyx]

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

Просто цикл сделай "бесконечный". Только Application.ProcessMessages();вызыв ай временами, чтобы сообщения обрабатывались. А в остальном твой код "крутиться" будет.

Бесконечный цикл уже реализован в объекте TApplication. Т.е. мне нужно реализовать проверку поверх VCL.

[An1ka]

Как выполнить какой-то процесс тогда, когда пользователь не работает с моим приложением?

Пример на DELPHI
Создайте процедуру, которая будет вызываться при событии Application.OnIdle.

Обьявим процедуру:

{Private declarations}
procedure IdleEventHandler(Sender: TObject; var Done: Boolean);

В разделе implementation опишем процедуру:

procedure TForm1.IdleEventHandler(Sender: TObject; var Done: Boolean);
begin
{Do a small bit of work here}
Done := false;
end;

В методе Form'ы OnCreate - укажем что наша процедура вызывается на событии Application.OnIdle.

Application.OnIdle := IdleEventHandler;

Событие OnIdle возникает один раз - когда приложение переходит в режим "безделья" (idle). Если в обработчике переменной Done присвоить False событие будет вызываться вновь и вновь, до тех пор пока приложение "бездельничает" и переменной Done не присвоено значение True.

http://articles.org.ru/cn/showdetail.php?cid=7253

[anyx]

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

Done := false;

Спасибо! Я так и делал, только не присваивал переменной Done значение False, поэтому, видимо, и не работало.