如何在一个本来没有Canvas属性的控件中添加一个这样的属性？？

Question

比如，我要在TPanel中添加这个属性，我写是写了一段，我是参照Image的！
但是画不出来。
源码：
type
     TPanelPipe = class(TPanel)
  private
    FPicture: TPicture;
    function GetCanvas: TCanvas;    
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    property Canvas: TCanvas read GetCanvas;
 published
    
  end;
function TPanelPipe.GetCanvas: TCanvas;
var
  Bitmap: TBitmap;
begin
  if Picture.Graphic = nil then
  begin
   Bitmap := TBitmap.Create;
try
       Bitmap.Width := Width;
  Bitmap.Height := Height;
  Picture.Graphic := Bitmap;
     finally    
  Bitmap.Free;
     end;
  end;
  if Picture.Graphic is TBitmap then
      Result := TBitmap(Picture.Graphic).Canvas;
  else
      raise EInvalidOperation.Create(SImageCanvasNeedsBitmap);
end;constructor Tpanelpipe.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  ControlStyle := ControlStyle + [csReplicatable];
  FPicture := TPicture.Create;
  //FPicture.OnChange := PictureChanged;//不注销出错
  //FPicture.OnProgress := Progress;//同上
end;

Answer 1

//试一试这个
var
 cas : TControlCanvas;
begin
 cas := TControlCanvas.Create;
 cas.Control := Panel1;//为了在Panel1上面作画
 cas.MoveTo(10,10);
 cas.LineTo(50,50);
 cas.Free;
end;

Answer 2

你定义一个TCanvas,代码如下
var
  FCanvas: TCanvas;FCanvas := TCanvas.Create;
FCanvas.Handle := GetDc(Panel1.Handle);这个FCanvas就是Panel1的canvas属性，你中意在上面画什么都行。

Answer 3

你们的方法可是可以,但是,当我把窗口最小化,然后再还原,这时候在Panel中画的东东又没了!
就是说刷新就没了!!怎么解决?!

Answer 4

在panel上创建一个image,直接在image上作图