【关于TCanvas上CopyRect和TBitmap的用法的问题】

Question

这样一段东西，麻烦大家看一下
ptb是一个TPaintBoxvar
  Form1: TForm1;
  ABit: TBitmap;
  AR: TRect;
implementation{$R *.dfm}procedure TForm1.FormActivate(Sender: TObject);
begin
  ABit:=TBitmap.Create;
  AR:=Rect(0,0,ptb.Width,ptb.Height);  Form1.Refresh;
  ptb.Canvas.Brush.Color:=clWhite;
  ptb.Canvas.FillRect(AR);
end;//画上线
procedure TForm1.Button1Click(Sender: TObject);
begin
  ptb.Canvas.PenPos:=Point(0,0);
  ptb.Canvas.LineTo(90,90);
end;//暂存到Bitmap,擦掉线
procedure TForm1.Button2Click(Sender: TObject);
begin
  ABit.Canvas.CopyRect(AR,ptb.Canvas,AR);
  ptb.Canvas.FillRect(AR);
end;//用Bitmap内的暂存,恢复原来图案
procedure TForm1.Button3Click(Sender: TObject);
begin
  ptb.Canvas.CopyRect(AR,ABit.Canvas,AR);
end;为什么达不到我上面的所想的效果呢?

Answer 1

ABit:=TBitmap.Create;
确定其Width和Height
－－－－－－－－－－－－－－
ptb.Canvas.MoveTo(0,0);
ptb.Canvas.LineTo(90,90);

Answer 2

嗯,的确是需要确定Width和Height后再用
谢楼上不过改TBitmap成TImage,就可以直接使用了,想必是两者的Canvas的实际并不完全相同