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);

 

相关阅读 >>

Delphi issameday、istoday - 判断是不是同一天、判断是不是今天

Delphi 网址链接结尾自动补/

Delphi 以低用户权限启动一个进程.比如vista或者win7中的ie

delph控制台(console)程序添加图标和版权信息

Delphi 设置打印机 纸张大小! 也可以获取纸张大小

Delphi format函数的用法

Delphi向当前窗口模拟键盘ctrl+v发送"粘贴"

Delphi 去掉twebbrowser的滚动条

Delphi datasnap清除僵死连接

Delphi 如何禁止用户更改窗体的大小

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 从PaintBox拷贝一部分内容到TBitmap