使 用CANVAS 时: 比 如 当 窗 口 进 行 最 小 化 又 重 新 恢 复 时， 就 会 引 起 画 布 上 图 像 的 消 失，

Question

procedure TForm1.Button2Click(Sender: TObject);
var
  MyCanvas: TControlCanvas;
begin
  MyCanvas:=TControlCanvas.Create;
  Mycanvas.control:=memo1;//想在memo1上作画
  With Mycanvas do
  Begin
   pen.color:=clyellow;
    begin
      Brush.Color := clBtnFace;  //
      MoveTo ( 33, 0 );
      Brush.Color := clWhite;  // 
      LineTo ( 33, ClientHeight );
    end;
End;  
end;
使 用CANVAS 时: 比 如 当 窗 口 进 行 最 小 化 又 重 新 恢 复 时， 就 会 引 起 画 布 上 图 像 的 消 失， 
//如何解决上述“图像消失”的问题？？？如何实现win2000性能中监视cpu 、内存的所画的的曲线

Answer 1

1、最好不使用TWinControl类的控件
2、最好使用TPaintBox
3、如果非要使用TWinControl类的控件，只有从某控件派生子类，然后在子类中进行复杂的操作比如用memo
能想到的除了就有：覆盖并继承paint方法，然后画图；处理滚动信息；等等