抓屏问题

Question

var
    dc : HDC;
    rgn : HRGN;
begin
    dc := GetDC(0);
    Image1.Width := Screen.Width;      //!!!! 改变了 Width和 Height 也只能截原始大小
    Image1.Height := Screen.Height;
    with Image1.Canvas do
    begin
        rgn := CreateRectRgnIndirect(Image1.BoundsRect);
        SelectClipRgn(Handle,rgn);
        BitBlt(Handle,0,0,Screen.Width,Screen.Height,dc,0,0,SRCCOPY);
    end;
    DeleteObject(rgn );
    ReleaseDC(0,dc);
    bUseColor := False;
end;除非装一个大型图片，否则，截屏的范围总是原来的范围。Image1 在一个 ScrollBox 里。

Answer 1

我想把截得的范围改为 Screen.Width Screen.Height，但图片框已经有那么大了，Canvas 却不能随之调整

Answer 2

要把屏幕完全彻底的抓下来，而不是只抓到图片框原来（未改为 Screen.W,h)的那么一小部分。

Answer 3

我知道了，因为装入过图片，之后需要改 Image1.Picture.Bitmap.Width 和 Height.
而不是改 DC 的 Rgn。见鬼的 Delphi.