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 xe5 android 发短信以及目录

Delphi 用ini记录combobox的itemindex

Delphi 获取url特殊路径

Delphi 过滤所有空格的函数

Delphi在pagecontrol1上面的分页动态创建edit组件

Delphi运行时的问题，cannot focus a disabled or invisible window！

Delphi中操作olevariant、variant和stream

Delphi 下载并运行的代码

Delphi 关于汇编call的例子

Delphi中webbrowser问题集锦

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

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