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

Примечание

Для рисования на поверхности панели, вообще говоря, существует более простой и правильный способ: нужно положить на панель компонент TPaintBox, растянуть его на всю область панели и рисовать в его событии OnPaint. Мы здесь используем более сложный способ перехвата сообщения WM_PAINT только в учебных целях.

При перехвате сообщения WM_PAINT любого компонента, на котором расположены неоконные визуальные компоненты, может возникнуть проблема с перерисовкой этих компонентов. Чтобы продемонстрировать способ решения этих проблем, разместим на панели компонент TLabel, который заодно будет показывать пользователю реакцию на двойной щелчок правой кнопкой мыши. В результате получается окно, показанное на рис. 1.9. При двойном щелчке правой кнопкой мыши на панели надпись Сделайте двойной щелчок правой кнопкой перемещается в то место, где находится курсор. Чтобы перехватить оконную процедуру панели, следует написать метод, который ее подменит, а адрес старого метода сохранить в предназначенном для этого поле. Сам перехват будем осуществлять в обработчике события OnCreate формы (листинг 1.29).

Рис. 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);