4. Далее проверяется значение параметра

, установленное в обработчике (если он назначен). Если это значение равно , метод завершает свою работу, и обработка сообщения на этом заканчивается. Таким образом, обработка сообщения по событию не может отменить предварительную обработку сообщения и исчезновение всплывающей подсказки.

Рис. 1.6. Одна итерация петли сообщений VCL (блок-схема метода 

)

5. Если главная форма приложения имеет стиль MDIForm, и одно из его дочерних MDI-окон в данный момент активно, сообщение передается функции

. Если эта функция вернет , то обработка сообщения на этом завершается (все эти действия выполняются в методе ).

6. Затем, если получено клавиатурное сообщение, оно отправляется на предварительную обработку тому же окну, что и в пункте 2 (метод

). Предварительная обработка клавиатурного сообщения начинается с попытки найти полученную комбинацию клавиш среди "горячих" клавиш контекстно-зависимого меню и выполнить соответствующую команду. Если контекстно-зависимое меню не распознало сообщение как свою "горячую" клавишу, то вызывается обработчик события окна, осуществляющего предварительную обработку (если это окно не является формой и не имеет этого события, то вызывается его родительской формы). Если обработчик не установил свой Handled в True, полученная комбинация клавиш ищется среди "горячих" клавиш сначала главного меню, а потом — среди компонентов . Если и здесь искомая комбинация не находится, возникает событие , которое также имеет параметр , позволяющий указать, что сообщение в дополнительной обработке не нуждается. Если обработчик не установил этот параметр, то сообщение передается главной форме приложения, которое пытается найти нажатую комбинацию среди "горячих" клавиш своего контекстного меню, передает его обработчику , ищет среди "горячих" клавиш главного меню и компонентов . Если нажатая клавиша не является "горячей", но относится к клавишам, использующимся для управления диалоговыми окнами (<Tab>, стрелки, <Esc> и т.п.), форме передается сообщение об этом, и при необходимости сообщение обрабатывается. Таким образом, на данном этапе средствами VCL эмулируются функции и .

7. Если на экране присутствует один из стандартных диалогов (в VCL они реализуются классами

, и т.п.), то вызывается функция , чтобы эти диалоги могли нормально функционировать (метод ).

8. Если ни на одном из предыдущих этапов сообщение не было обработано, то вызываются функции

и , которые завершают обработку сообщения путем направления его соответствующей оконной функции.

Примечание

Если внимательно проанализировать шестой этап обработки сообщения, видно, что нажатая комбинация клавиш проверяется на соответствие "горячим" клавишам меню сначала активной формы, затем — главной. При этом сначала возникает событие

OnShortCut

активной формы, потом —

Application.OnShortCut

, затем —

OnShortCut

главной формы. Если в момент получения сообщения главная форма активна, то она дважды будет проверять соответствие клавиши "горячим" клавишам своих меню и событие

OnShortCut

тоже возникнет дважды (первый раз поле

Msg.Msg

равно

CN_KEYDOWN

, второй —

CM_APPKEYDOWN

). Эта проверка осуществляется дважды только в том случае, если комбинация клавиш не распознается как "горячая" клавиша — в противном случае цепочка проверок обрывается при первой проверке.

Метод

возвращает , если сообщение извлечено и обработано, и , если очередь была пуста. Этим пользуется метод , который вызывает и, если тот вернет , вызывает метод для низкоприоритетных действий, которые должны выполняться только при отсутствии сообщений в очереди. Метод , во-первых, проверяет, над каким компонентом находится курсор мыши, и сохраняет ссылку на него в поле , которое используется при последующей проверке, нужно ли прятать всплывающую подсказку. Затем, при необходимости, прячется старая всплывающая подсказка и показывается новая. После этого вызывается обработчик , если он назначен. Этот обработчик имеет параметр , по умолчанию равный . Если в коде обработчика он не меняется на , метод инициирует события у всех объектов , у которых они назначены (если после вызова принял значение , не тратит время на инициацию событий ).

Примечание

В BDS 2006 появилось свойство

Application.ActionUpdateDelay

, позволяющее снизить нагрузку на процессор, откладывая на некоторое время обновление объектов

TAction

. Если значение этого свойства не равно нулю, в методе

Idle

вместо вызова запускается таймер и

OnUpdate

вызывается по его сигналу.

Затем, независимо от значения

, с помощью процедуры проверяется, есть ли записи в списке методов, ожидающих синхронизации (эти методы помещаются в указанный список при вызове ). Если список не пуст, выполняется первый из этих методов (при этом он, разумеется, удаляется из списка). Затем, если остался равным , а список методов для синхронизации был пуст (т. е. никаких дополнительных действий выполнять не нужно), вызывает функцию Windows API . Эта функция приостанавливает выполнение нити до тех пор, пока в ее очереди не появятся сообщения.

Примечание

Вызов

Synchronize

приводит к тому, что соответствующий метод будет выполнен основной нитью приложения, а нить, вызвавшая

Synchronize

, будет приостановлена до тех пор, пока главная нить не сделает это. Отсюда видно, насколько бредовыми являются советы (заполонившие Интернет, а также встречающиеся в некоторых книгах, например, у Архангельского) помещать весь код нити в

Synchronize

. В этом случае дополнительная нить вообще не будет ничего делать, все будет выполняться основной нитью, и выигрыша от создания дополнительной нити просто не будет. Поэтому в

Synchronize

нужно помещать только те действия, которые не могут быть выполнены неосновной нитью (например, обращения к свойствам и методам VCL-компонентов).

Главная петля сообщений в VCL реализуется методом

, вызов которого автоматически вставляется в dpr-файл VCL-проекта. вызывает в цикле метод , пока поле не окажется равным (напомним, что значение присваивается этому полю, когда извлекает из очереди сообщение , а также при обработке сообщения и при закрытии главной формы).