您现在的位置:首页 >> 图形媒体 >> 图形媒体 >> 内容

截取窗体部分地方作为图片保存的代码

时间:2011/9/3 15:03:00 点击:

  核心提示:procedure TForm1.Button1Click(Sender: TObject);var vHdc : HDC; vbitmap : TBitmap; pt : TRect;begin v...
procedure TForm1.Button1Click(Sender: TObject);
var
  vHdc : HDC;
  vbitmap : TBitmap;
  pt : TRect;
begin
  vHDC := GetDC(0);
  GetWindowRect(Edit1.Handle,pt);
  vbitmap := TBitmap.Create;
  try
    vbitmap.Width := Screen.Width;
    vbitmap.Height := screen.Height;
    BitBlt(vbitmap.Canvas.Handle,pt.Left,pt.Top,Edit1.Width,Edit1.Height,vHdc,pt.Left,pt.top,SRCCOPY);
    vbitmap.SaveToFile('c:\tmp.bmp');
  finally
    ReleaseDC(0,vHdc);
    FreeAndNil(vbitmap);
  end;
end;

作者:starluck 来源:原创
共有评论 0相关评论
发表我的评论
  • 大名:
  • 内容:
本类推荐
  • 没有
本类固顶
  • 没有
  • 盒子文章(www.2ccc.com) © 2022 版权所有 All Rights Reserved.
  • 沪ICP备05001939号