本文整理自网络,侵删。
将指定的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 以低用户权限启动一个进程.比如vista或者win7中的ie
更多相关阅读请进入《Delphi》频道 >>