怎样拷贝Panel上的所有组件,image、label、EDIT等等为一幅图片?(100分)

  • 主题发起人 主题发起人 zxygraphics
  • 开始时间 开始时间
Z

zxygraphics

Unregistered / Unconfirmed
GUEST, unregistred user!
Panel的大小比当前屏幕大,部分panel看不到的。
 
改变分辨率吧
 
TPanel.Print
 
最笨的办法,加上滚动条,分多次截图,拼起来。哈哈。。
 
这也是办法呀,用户不把我臭死才怪呢。
 
var
Bitmap: TBitmap;
begin
Bitmap := TBitmap.Create;
Bitmap.Width := Panel.Width;
Bitmap.Height := Panel.Height;
try
Panel.PaintTo(Bitmap.Canvas,0,0);
//Use Bitmap Do SomeThing..
finally
Bitmap.Free;
end;
end;
 
激动!终于见到代码了....:)
 
接受答案了.
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
609
import
I
后退
顶部