小女告急:如何将Panel控件上的内容保存为图片?(0分)

  • 主题发起人 主题发起人 laohe
  • 开始时间 开始时间
L

laohe

Unregistered / Unconfirmed
GUEST, unregistred user!


请大侠赐教
 
抓图啊,也就是屏幕拷贝, 知道了panel的位置,这些都很容易的。

另外,对你的提问表示质疑:小女指何人?指你的女儿??若是指你本人,是否小女子
比较合适?:)))
 
你可以用form1的canvas来实现copy

form1.Canvas.CopyRect(..........);
 
我来帮小女子:用照相机拍下来!
 
qq:71892967
 
Panel.canvas.savetofile
 
同意上楼意见
 
同意枯叶子!!
 
积分为0的问题也有N多人来答,看来大富翁里的专家并不象传闻中的那么功利嘛,还是因为性别的原因......物以稀为贵......?[:)][:)][:)][:)][:)][:)][:)]
 
老爹来了,问题难办,算了。
不过挺好玩,TPanel怎么来Canvas了?
要是这样我家小女也不会告急了。
得,告急了先上厕所吧。
好了,怎么画上去就怎么取下来
还是用windows的操作函数吧,CopyRect
 
var
Bit:TBitmap;
begin
Bit.Width:=Panel1.Width;
Bit.Height:=Panel1.Height;
Panel1.PaintTo(Bit.Canvas.Handle,0,0);
Bit.SaveFile('');
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
img:TImage;
begin
img:=TImage.Create(nil);
img.Picture.Bitmap.Width:=panel1.width;
img.picture.Bitmap.Height:=panel1.height;
bitblt(img.canvas.handle,0,0,panel1.width,panel1.height,getdc(panel1.Handle),0,0,srccopy);
img.Picture.SaveToFile('d:/temp.bmp');
img.Free;
end;
 
真的是女的吗?


 
谢谢大家,我现在可以了.
 

Similar threads

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