О чём не пишут в книгах по Delphi

 // угла клиентской области, как это задается свойствами

 // Left и Тор). Функций для получения смещения клиентской

 // области относительно левого верхнего угла окна нет.

 // Придется воспользоваться сообщением WM_NCCalcRect

 R2 := Rect(Left, Top, Left + Width, Top + Height);

 Perform(WM_NCCALCSIZE, 0, LParam(@R2));

 // Переводим координаты полученного прямоугольника из

 // экранных в координаты относительно левого верхнего

 // угла окна

 OffsetRect(R2, -Left, -Top);

 // получаем координаты панели относительно левого

 // верхнего угла клиентской области и пересчитываем их

 // в координаты относительно верхнего левого угла окна

 R := Rect(0, 0, PanelHole.Width, PanelHole.Height);

 OffsetRect(R, PanelHole.Left + R2.Left, PanelHole.Top + R2.Top);

 // уменьшаем прямоугольник на величину рамки и создаем

 // соответствующий регион

 InflateRect(R, -HoleBorder, -HoleBorder);

 Rgn2 := CreateRectRgnIndirect(R);

 // вычитаем один прямоугольный регион из другого, получая

 // прямоугольник с дыркой

 CombineRgn(Rgn1, Rgn1, Rgn2, RGN_DIFF);

 // уничтожаем вспомогательный регион

 DeleteObject(Rgn2);

 // Назначаем регион с дыркой окну

 SetWindowRgn(Handle, Rgn1, True);

 // обратите внимание, что регион, назначенный окну, нигде

 // не уничтожается. После выполнения функции SetWindowRgn

 // регион переходит в собственность системы, и она сама

 // уничтожит его при необходимости

end;

Сообщения, поступающие с панели, перехватываются через ее свойство WindowProc (подробно эта технология описана в первой части данной главы, здесь мы ее касаться не будем). Сообщение WM_NCHITTEST будем обрабатывать так, чтобы при попадании мыши на рамку панели возвращались такие значения, чтобы за эту рамку можно было тянуть. В обработчике сообщения WM_SIZE панели изменяем регион так, чтобы он соответствовал новому размеру панели. Все, дырка с изменяемыми размерами готова. Теперь нужно научить "дырку" менять размеры при изменении размеров окна, если окно стало слишком маленьким, чтобы вместить в себя дырку. Осталось только немного "навести красоту". "Красота" заключается в том, чтобы пользователь не мог уменьшить размеры дырки до нуля и увеличить так, чтобы она вышла за пределы окна, а также уменьшить окно так. чтобы дырка оказалась за пределами окна. Первая из этих задач решается просто: добавляется обработчик сообщения WM_SIZING для дырки таким образом, чтобы ее размеры не могли стать меньше, чем MinHoleSize на MinHoleSize пикселов, а границы нельзя было придвинуть к границам окна ближе, чем на HoleDistance пикселов. Вторая задача решается еще проще: в обработчике WM_SIZE дырки меняем свойство Constraints формы таким образом, чтобы пользователь не мог слишком сильно уменьшить окно. Теперь окно с дыркой ведет себя корректно при любых действиях пользователя с дыркой. Получившийся в результате код обработчика сообщений панели приведен в листинге 1.53.

Листинг 1.53. Обработчик сообщений панели, образующей "дырку"

procedure TFormHole.PanelWndProc(var Msg: TMessage);

var

 Pt: TPoint;

 R: TRect;

begin

 POldPanelWndProc(Msg);

 if Msg.Msg = WM_NCHITTEST then

 begin

  // Вся хитрость обработки сообщения WM_NCHITTEST

  // заключается в правильном переводе экранных координат

  // в клиентские и в несколько муторной проверке попадания

  // мыши на сторону рамки или в ее угол. Дело упрощается