Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2004.07.18;
Скачать: [xml.tar.bz2];

Вниз

Чем заменить 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 вместо кода.


 
jack128 ©   (2004-06-07 02:51) [2]


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



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

Форум: "WinAPI";
Текущий архив: 2004.07.18;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.03 c
14-1088348844
jack128
2004-06-27 19:07
2004.07.18
Ваше отнашение к вопросам о вашем отнашении к ... , как к науке


3-1087809125
AVKAR
2004-06-21 13:12
2004.07.18
Обновление строки


1-1088882723
oleg_SYS
2004-07-03 23:25
2004.07.18
HTML из буфера обмена


1-1089000676
newver
2004-07-05 08:11
2004.07.18
Передача данных в программу.


8-1083404691
DL
2004-05-01 13:44
2004.07.18
IcoBase





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский