我想在panel中直接画图！

Question

这个问题比较简单，但是因为panel没有canvas功能，所以我们
给他添加上canvas属性就可以了，使用如下的代码看看，只是
一个简单的说明：
var
 c:tcanvas;
begin
 c:=tcontrolcanvas.create;
 tcontrolcanvas[c].control:=panel1;
 c.brush.color:=clred;
 c.brush.style:=bssolid;
 c.pen.color:=clred;
 c.pen.width:=1;
 //下面的省略号部分你就自己写吧，
比如画矩形之类的看看，掌握了在画图形
 ........
end;

Answer 1

直接画我认为不行，因为Panel没有Canvas

Answer 2

把Canvas属性加到panel中需要做什么呢？

Answer 3

自己定义一个类，将TWincontrol的Canvas属性公开出来。这样你就可以使用Canvas画你想画的东西了。  TMyPanel=class(TPanel)
  public
    property Canvas;
  end;