Чем заменить Application.ProcessMessages?

← →
Max (2004-06-06 18:15) [0]

Чем заменить в программе (на WinApi) в цикле Application.ProcessMessages?

← →
Dimaxx (2004-06-06 22:27) [1]

На WinAPI это реализуется так:

var Message: TMsg;

while GetMessage(Message,0,0,0) do begin TranslateMessage(Message); DispatchMessage(Message); end;

Так отлавлиывается любое сообщение. Если необходимо на него отреагировать, то нужно проверять его внутри while вместо кода.

> while PeekMessage(Message,0,0,0, PM_REMOVE) do
> begin
> TranslateMessage(Message);
> DispatchMessage(Message);
> end;

Чем заменить Application.ProcessMessages? Найти похожие ветки