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

   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. Только после этого можно что-то рисовать.