А. Григорьев - О чём не пишут в книгах по Delphi

Описанный здесь способ отслеживание ухода и прихода мыши реализован, начиная с BDS 2006. В более ранних версиях Delphi за это отвечал метод Application.Idle, который, как мы помним, вызывается только тогда когда в очереди нет сообщений. Из-за этого иногда (например, при быстром движении мышью) события ухода и прихода мыши пропускались, нарушая логику работы программы. Поэтому в BDS 2006 способ контроля прихода и ухода мыши был изменен, и ответственность за это возложена на метод TWinControl.WndProc. Это позволило избавиться от одного недостатка — потери событий, но породило другой: теперь перехват и самостоятельная обработка "мышиных" сообщений до того, как это сделает метод WndProc, может привести к потере возможности отслеживания прихода и ухода мыши. Впрочем, эта проблема проявляется только при выполнении программистом определенных осмысленных действий по внедрению кода в оконную процедуру, поэтому она гораздо менее серьезна, чем та от которой удалось избавиться.

События мыши метод WndProcдиспетчеризует самостоятельно, без помощи функции DispatchMessage. Это связано с тем, что DispatchMessageпередаёт сообщение тому оконному компоненту, которому оно предназначено с точки зрения системы. Однако с точки зрения VCL этот компонент может являться родителем для неоконных визуальных компонентов, и если сообщение от мыши связано с их областью, то оно должно обрабатываться соответствующим неоконным компонентом, а не его оконным родителем. DispatchMessageничего о неоконных компонентах не "знает" и не может передать им сообщения, поэтому разработчикам VCL пришлось реализовывать свой способ. Те сообщения, которые метод WndProcне обрабатывает самостоятельно (а их — подавляющее большинство), он передает в метод Dispatch, который объявлен и реализован в классе TObject. На первый взгляд может показаться странным, что в самом базовом классе реализована функциональность, использующаяся только в визуальных компонентах. Эта странность объясняется тем, что разработчики Delphi встроили поддержку обработки сообщений непосредственно в язык. Методы класса, описанные с директивой message, служат специально для обработки сообщений. Синтаксис описания такого метода следующий:

procedure (var Message: ); message ;

— это номер сообщения, для обработки которого предназначен метод. Имя метода может быть любым, но традиционно оно совпадает с именем константы сообщения за исключением того, что в нем выбран более удобный регистр символов и отсутствует символ "_" (например, метод для обработки WM_SIZEбудет называться WMSize).

В качестве типа параметра компилятор разрешает любой тип, но на практике имеет смысл только использование типа TMessageили "совместимого" с ним. Тип TMessageописан в листинге 1.14.

TMessage = packed record

Msg: Cardinal;

case Integer of

0: (

WParam: LongInt;

LParam: LongInt;

Result: LongInt);

1: (

WParamLo: Word;

WParamHi: Word;

LParamLo: Word;

LParamHi: Word;

ResultLo: Word;

ResultHi: Word);

end;

Поле Msg содержит номер сообщения, поля WParamи LParam— значение одноименных параметров сообщения. Поле Result— выходное: метод, осуществляющий окончательную обработку сообщения, заносит в него то значение, которое должна вернуть оконная процедура. Поля с суффиксами Loи Hiпозволяют обращаться отдельно к младшему и старшему словам соответствующих полей, что может быть очень полезно, когда эти параметры содержат пару 16-разрядных значений. Например, у сообщения WM_MOUSEREMOVEмладшее слово параметра LParamсодержит X-координату мыши, старшее — Y-координату. В случае обработки этого сообщения поле LParamLoбудет содержать X-координату, LParamHi— Y-координату.

"Совместимыми" с TMessageможно назвать структуры, которые имеют такой же размер, а также параметр Msg, задающий сообщение. Эти структуры учитывают специфику конкретного сообщения. Их имена образуются из имени сообщения путем отбрасывания символа и добавления префикса T. Для уже упоминавшегося сообщения WM_MOUSEMOVEсоответствующий тип выглядит, как показано в листинге 1.15.

TWMNCMouseMove = packed record

Msg: Cardinal;

HitTest: LongInt;

XCursor: SmallInt;

YCursor: SmallInt;

Result: LongInt;

end;

Параметр WParamпереименован в HitTest, что лучше отражает его смысл в данном случае, а параметр LParamразбит на две 16-разрядных части: XCursorи YCursor.