Текущий архив: 2003.11.24;
Скачать: CL | DM;

Вниз

Как реализовать Application.ProcessMessages на WinApi?(-)   Найти похожие ветки 

← →
plyaznik   (2003-09-28 02:07) [0]

-

---

← →
Asteroid ©   (2003-09-28 06:29) [1]


function ProcessMessages(): Boolean;
begin
if ( PeekMessage( msg, 0, 0, 0, PM_REMOVE ) ) then // Check if there is a message for this window
begin
if ( msg.message = WM_QUIT ) then // If WM_QUIT message received then we are done
finished := True
else
begin // Else translate and dispatch the message to this window
TranslateMessage(msg);
DispatchMessage(msg);
end;
Result := true;
end
else
Result := false;
end;


Result - были ли вообще сообщения в очереди.

---

Страницы: 1 вся ветка

Текущий архив: 2003.11.24;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.022 c