VadimLou Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Код:   procedure Win_Application_ProcessMessages(); var   Msg: TMsg; begin   if PeekMessage(Msg, 0, 0, 0, PM_REMOVE) then   begin     if Msg.Message <> WM_QUIT then     begin       TranslateMessage(Msg);       DispatchMessage(Msg);     end;   end; end;   procedure Vcl_Application_ProcessMessages(); begin   Application.ProcessMessages; end;   procedure Application_ProcessMessages(); begin   if Assigned(Application) and (GetCurrentThreadID = MainThreadID) then     Vcl_Application_ProcessMessages()   else     Win_Application_ProcessMessages(); end;   Всего записей: 702 | Зарегистр. 22-07-2004 | Отправлено: 20:19 05-03-2018

На первую страницу • к этому сообщению • к последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Embarcadero RAD Studio

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование