Screenshot - Verständnisfrage

[Bummi]

Du kannst auch einfach nur per Canvas arbeiten

Delphi-Quellcode:

procedure Screen2Canvas(DestCanvas:TCanvas;DestRect:TRect);
var
 C:TCanvas;

begin
 C:=TCanvas.Create;
 C.Handle := GetDC(0);
 try
   DestCanvas.CopyRect(DestRect,C,DestRect);
 finally
   ReleaseDC(0,C.Handle);
   c.Free;
 end;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
   Screen2Canvas(Image1.Canvas,Rect(0,0,Screen.Width,Screen.Height));
end;