Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Чем заменить Application.ProcessMessages? [D7, Win95/98, WinME, WinXP]


Max ©   (2004-06-06 18:15:00) 

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


jack128   (2004-06-07 02:51:00) [1]


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


Dimaxx   (2004-06-06 22:27:00) [2]

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

var Message: TMsg;

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


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


Наверх

Титульная страница Поиск, карта сайта Написать письмо