[Decoding]

Возможно с TPanel пример не совсем корректный, но в общем случае он правильный, например для TButton.

Канвой обладают все графические компоненты (наследники от TGraphicControl), но не все оконные компоненты. Те компоненты, которые наследуются от TCustomControl, имеют канву, к таким компонентам относится и панель.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

TCustomControl = class(TWinControl)   private     FCanvas: TCanvas;   public     constructor Create(AOwner: TComponent); override;     destructor Destroy; override;   end;    { TCustomControl } constructor TCustomControl.Create(AOwner: TComponent); begin   inherited Create(AOwner);   FCanvas := TControlCanvas.Create;   TControlCanvas(FCanvas).Control := Self; end; destructor TCustomControl.Destroy; begin   FCanvas.Free;   inherited Destroy; end;

А вот к примеру кнопки (TButton) канвы не имеют (они наследуются от TButtonControl), и тогда описанный выше способ будет очень кстати.

Зачем кнопке канва, это уже другой вопрос (просто поверьте, бывают случаи когда она необходима).