У меня программа стала выдавать ошибки, причём отладчик вообще ничего не говорит, где вылет. Только говорит, что я где-то вызвал процедуру, указывающую на нулевой адрес. После двух часов отладки, где же это я обратился к нулевому адресу, я наконец-то нашёл строчку, которая выдавала ошибки:
if (@IdleProc <> nil) and not PeekMessage(Message, 0, 0, 0, pm_NoRemove) then IdleProc
По моему замыслу, она должна работать так: если процедура ожидания есть и нету сообщений в очереди, то выполнить процедуру ожидания. Однако после долгой отладки выяснилось, что PeekMessage зачем-то ещё и пытается обработать сообщение! Ну и внутри обработчика деактивации IdleProc ставился на nil, чтобы свёрнутая программа проц не ела, а потом этот IdleProc пытался вызваться.
Так вот, что делать, чтобы просто проверить наличие сообщений? Я не хочу, чтобы она их ещё и обрабатывала.
Я САМ РЕШУ, когда мне надо обработать сообщение, а когда нет!
Нужно больше кода, чтобы понять, что именно происходит в программе. В частности - как именно работает IdleProc, что она делает? Где именно IdleProc устанавливается в Nil? Какие именно сообщения обрабатываются программой? У PeekMessage слишком много подводных камней, чтобы можно было "вслепую" что-то советовать.
> В частности - как именно работает IdleProc, что она делает?
Считает что-то, рисует, не суть важно.
> Где именно IdleProc устанавливается в Nil? Какие именно сообщения обрабатываются программой?
Она ставится в ноль в ответ на сообщение деактивации внутри оконной процедуры.
> Это так называемое non-queued сообщение, оно поступает сразу в оконную процедуру, а не в очередь.
Не понял, оно может взять и прервать выполнение программы в любом месте, а потом снова вернуть? Или как?
То есть код
if @IdleProc <> nil then IdleProc
может обратиться к нулевому адресу, если между проверкой на ноль и вызовом произошла обработка сообщения, которые выставило IdleProc в nil?
PeekMessage мне сам нужен не для обработчки сообщения, а просто чтобы узнать, если ли что обрабатывать.
По идее, мне нужен универсальный главцикл, который для @IdleProc=nil просто ждёт сообщение, не гоняя проц по циклу, а для <>nil выполняет этот IdleProc, елси никаких сообщений в очереди нет.
Пока что он у меня такой:
procedure GetMessages;
var
Message: TMsg;
begin
repeat
try
if not PeekMessage(Message, 0, 0, 0, 0) and (@IdleProc <> nil) then IdleProc
else begin
if not GetMessage(Message, 0, 0, 0) then Break;
if TranslateAccelerator(FormStack.Handle, FormStack.Accels, Message) = 0 then begin
TranslateMessage(Message);
DispatchMessage(Message);
end;
end;
except
MessageBox(MainForm, PChar('Runtime error ' + IntToHex(ExceptionCode)), 'ERROR', mb_OK or mb_IconError);
end;
until False;
end;
// определяем свои сообщения I_AM_ACTIVATED / I_AM_DEACTIVATED
// и в функции окна при получении:
WM_ACTIVATE:
case(wParam) of
WA_ACTIVE: PostMessage(hwnd, I_AM_ACTIVATED, 0, 0);
WA_INACTIVE: PostMessage(hwnd, I_AM_DEACTIVATED, 0, 0);
end; { case }