Delphi 从PaintBox拷贝一部分内容到TBitmap

将指定的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);