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

Question

如果我有一个窗体上面有一些控件和一个按钮,
我按下按钮后能截取这个窗体某个区域作为图片并自动保存到某个地方...应该怎么写呢?例如我要截取窗体中  X1=0  Y1=0    X2=100  Y2=100 这个区域,

Answer 1

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;