关于CANVAS作为参数传递的问题

Question

PROCEDURE（ACANVAS：TCANVAS；...）
当把IMAGE.CANVAS传进去画图时，程序生成了一份CANVAS的COPY，这样使得程序CPU占用率和CPU时间占用都很高，但在IMAGE的ONMOUSEMOVE里作画同样的图，资源占用量低很多很多，如何把CANVAS作为引用传递呢？
PROCEDURE（VAR　ACANVAS：TCANVA；...）这样的定义不能通过，因为CANVAS是CONST对象；另外，当我在一个TBITMAP对象画好图后，再
bitblt(Image1.Canvas.Handle,0,0,Bmp.Width-1,Bmp.Height-1,Bmp.Canvas.Handle,0,0,SRCCOPY);
这样快速处理时，画面闪得好厉害，只能打开FORM的DOUBLEBUFFER才不闪，我的处理不是双缓存吗？

Answer 1

你开了 DoubleBuffer 就是了。

Answer 2

Delphi中的对象使用引用模型，赋值和作为参数传递都是传一个指针而已，想要它复制还要使用assign方法才行。
“程序CPU占用率和CPU时间占用都很高”那是你的程序有问题，不是Canvas被复制造成的。