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

Рис. 1.9. Окно программы PanelMsg

Листинг 1.29. Перехват обработчика сообщений панели

type
 TForm1 = class(TForm)
 Panel: TPanel;
 Label1: TLabel;
 procedure FormCreate(Sender: TObject);
 private
 // Здесь будет храниться исходный обработчик сообщений
 // панели
 FOldPanelWndProc: TWndMethod;
// Этот метод будет перехватывать сообщения,
 // предназначенные панели
 procedure NewPanelWndProc(var Msg: TMessage);
 end;
...

procedure TForm1.FontCreate(Sender: TObject);
begin
 FOldPanelWndProc := Panel.WindowProc;
 Panel.WindowProc := NewPanelWndProc;
end;

Сам перехватчик выглядит так, как показано в листинге 1.30.

Листинг 1.30. Метод-перехватчик сообщений панели

procedure TForm1.NewPanelWndProc(var Msg: TMessage);
var
 NeedDC: Boolean;
 PS: TPaintStruct;
 PanelCanvas: TCanvas;
begin
 if Msg.Msg = WM_RBUTTONDBLCLK then
 begin
 Label1.Left := Msg.LParamLo;
 Label1.Top := Msg.LParamHi;
 Msg.Result := 0;
 end
 else if Msg.Msg = WM_PAINT then
 begin
 // Проверяем, был ли запрошен контекст устройства
 // обработчиком, стоящим раньше по цепочке, и если не
 // был, то запрашиваем его.
 NeedDC := Msg.WParam = 0;
 if NeedDC then Msg.WParam := BeginPaint(Panel.Handle, PS);
 // Вызываем старый обработчик WM_PAINT. Его нужно
 // вызывать обязательно до того, как мы начнем рисовать
 // на поверхности что-то свое, т.к. в противном случае
 // это что-то будет закрашено стандартным обработчиком.
 POldPanelWndProc(Msg);
 // При использовании графических функций API самое
 // неудобное - это вручную создавать и уничтожать кисти,
 // карандаш и т.п. Поэтому здесь создается экземпляр
 // класса TCanvas для рисования на контексте устройства
 // с дескриптором, полученным при вызове BeginPaint.
 PanelCanvas := TCanvas.Create;
 try
 PanelCanvas.Handle := Msg.WParam;
 FanelCanvas.Pen.Style := psClear;
 PanelCanvas.Brush.Style := bsSolid;
 PanelCanvas.Brush.Color := clWhite;
 PanelCanvas.Ellipse(10, 10, Panel.Width - 10, Panel.Height - 10);
 PanelCanvas.Brush.Color := clYellow;
 PanelCanvas.Rectangle(100, 100, Panel.Width - 100, Panel.Height - 100);
 finally
 PanelCanvas.Free;
 end;
 // В данном случае панель содержит визуальный неоконный
 // компонент TLabel. Отрисовка неоконных компонентов
 // происходит при обработке WM_PAINT родительского
// компонента, т.е. здесь она была выполнена при вызове
 // стандартного обработчика. Таким образом, сделанный
 // рисунок закрасил не только фон панели, но и
 // неоконные компоненты. Чтобы компоненты были поверх
 // рисунка, их приходится перерисовывать еще раз,
 // вызывая protected-метод PaintControls. Это не очень
 // эффективно, т.к. получается, что компоненты рисуются
 // дважды: в стандартном обработчике и здесь. Но
 // другого способа решить проблему, видимо, нет. Если
 // бы на панели лежали только оконные компоненты,
 // вызывать PaintControls не понадобилось, поскольку то, что
 // мы рисуем на панели, не может затереть поверхность
 // лежащих на этой панели других окон.
 TFakePanel(Panel).PaintControls(Msg.WParam, nil);
 // Если мы получали контекст устройства, мы же должны
 // освободить его.
 if NeedDC then
 begin
 EndPaint(Panel.Handle, PS);
 Msg.WParam := 0;
 end;
 end
 else FOldPanelWndProc(Msg);
end;

Так как в наш обработчик поступают все сообщения, передающиеся в оконную процедуру панели, начинается он с проверки того, какое сообщение пришло. Сначала реализуем реакцию на WM_RBUTTONDBLCLK просто перемещаем метку Label1 на то место, где пользователь щелкнул мышью. Затем обнуляем результат, давая понять системе, что сообщение полностью обработано. Вызов унаследованного обработчика в данном случае не выполняем, потому что никакая унаследованная реакция на данное событие нам не нужна. Обработка сообщения WM_PAINT сложнее. Сначала необходимо разобраться с контекстом устройства, на котором будет производиться рисование. Вообще говоря, обработчик WM_PAINT должен получать этот контекст с помощью функции BeginPaint. Но если до написанного нами кода сообщение WM_PAINT уже начало обрабатываться, то контекст устройства уже получен, а вызывать BeginPaint два раза нельзя. В этом случае контекст устройства передаётся через параметр сообщения WParam. Соответственно, обработка сообщения WM_PAINT начинается с того, что мы проверяем, равен ли нулю параметр wParam, и если равен, то получаем контекст устройства, а если не равен, используем то, что передано.

Унаследованный обработчик закрашивает всю панель целиком, поэтому его нужно вызывать до того, как мы нарисуем что-то свое, иначе он просто закрасит то, что мы нарисовали. Так что следующий шаг — это вызов стандартного обработчика сообщений панели, указатель на который мы сохранили в поле FOldPanelWndProc. Только после этого можно что-то рисовать.

Примечание

Перекрывая обработку сообщения WM_PAINT, мы лишаем код VCL возможности полностью контролировать процесс перерисовки. В частности, это означает что значение свойства DoubleBuffered будет игнорироваться, двойной буферизации не будет. Поэтому еще раз напоминаем, что программа PanelMsg — это учебный пример, помогающий разобраться с механизмами взаимодействия VCL и Windows API, но не являющийся образцом для подражания. Если в реальной жизни потребуется рисовать что-то непосредственно на панели, нужно порождать от класса TPanel наследника и перекрывать в нем метод Paint.