怎样将panel上所有的label和image等--保存为一幅完整的图片(当然是panel大小)?苦思瞑想毛渐少!!! 怎样将panel上所有的label和image等--保存为一幅完整的图片(当然是panel大小)? 苦思瞑想毛渐少!!!我是不是有点苯啊? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 按一下PrintScreen SysRq按钮,然后到画笔里面粘贴,剪切就行了 var Cav:TCanvas; Bmp:TBitmap;begin Cav:=TCanvas.Create; Cav.Handle:=GetDC(Panel1.Handle); Bmp:=TBitmap.Create; Bmp.Height:=Cav.ClipRect.Bottom; Bmp.Width:=Cav.ClipRect.Right; Bmp.Canvas.CopyRect(Panel1.ClientRect,Cav,Panel1.ClientRect); Bmp.SaveToFile(FileName);end; Delphi游戏图片绘制问题 delphi编程碰到一个不知所措的问题??? delphi如何删除列 又是一个很简单的问题。 请问 Delphi7里图片处理问题 如何使用这个API函数 insert into 语句怎样定义列宽? 关于StringGrid的一个问题,请各位帮帮小弟!谢谢了 如何才能在memo中显示国际音标 如何辨别正确的文件路径?? 看看啊 不用控件,如何得到一目录下的所有文件???
按一下PrintScreen SysRq按钮,然后到画笔里面粘贴,剪切就行了
Cav:TCanvas;
Bmp:TBitmap;
begin
Cav:=TCanvas.Create;
Cav.Handle:=GetDC(Panel1.Handle);
Bmp:=TBitmap.Create;
Bmp.Height:=Cav.ClipRect.Bottom;
Bmp.Width:=Cav.ClipRect.Right;
Bmp.Canvas.CopyRect(Panel1.ClientRect,Cav,Panel1.ClientRect);
Bmp.SaveToFile(FileName);
end;