将指定的TPaintBox内容（假如为paintbox1）拷贝到一个TBitmap（如Bitmap），可以这么做
Bitmap.Width := PaintBox1.Width; Bitmap.Height := PaintBox1.Height; BitBlt(Bitmap.Canvas.Handle, 0, 0, Bitmap.Width, Bitmap.Height, PaintBox1.Canvas.Handle, 0, 0, SRCCOPY);
Delphi 从PaintBox拷贝一部分内容到TBitmap
原文：http://www.cnblogs.com/tc310/p/5193409.html