delphi中如何将TCANVAS上的内容转化为一幅图象？

Question

用一个TIMAGE控件，用BITBLT() API函数把那个CANVAS的图象COPY到这个TIMAGE控件上，然后再用TIMAGE.PICTURE的savetofile方法应该可以吧!

Answer 1

    先声明一个TBitmap,然后使用控件Canvas.copy到声明的TBitmap上，再使用TBitmap的PICTURE属性的SaveToFile方法保存到磁盘上。

Answer 2

谢谢二位，两种方法都可行，均分100分，大家应该没有意见吧？
不过，我这人很懒，我更喜欢IAMFLY2000的方法。

Answer 3

对不起，说错话了，西西，作为懒人，应该喜欢用nnhg的方法，更简单一点。