image.picture.bitmap.assign(bitmap:Tbitmap) OK?

解决方案 »

  1.   

    var Fullscreen:Tbitmap;
        dc:HDC;
        fullscreenCanvas:Tcanvas;
    begin
          dc:=Getdc(0);
          fullscreenCanvas:=Tcanvas.Create;
          fullscreenCanvas.Handle:=dc;
          Fullscreen:=Tbitmap.Create;
          Fullscreen.Canvas.CopyRect(rect(0,0,screen.Width,screen.Height),fullscreenCanvas,rect(0,0,screen.Width,screen.Height));
          fullscreenCanvas.Free;
          ReleaseDc(0,dc);
          image1.Picture.Assign(Fullscreen);
          image1.Refresh;
    还是不行呀,你们看看吧
      

  2.   

    begin 
                image1.Canvas.Handle:=Getdc(0);
    end;