Screenshot der Aktiven Form in Zwischenablage ?

[Cyberbob_at_tot]

Habe es nun so gemacht!

Delphi-Quellcode:

Procedure TForm3.Screenshot();
Var
  Bitmap:TBitmap;
Begin
    Try
      Bitmap:=TBitmap.Create;
      Try
        Bitmap:=GetFormImage;
        Clipboard.Assign(Bitmap);
      Finally
          Bitmap.Free;
      end;
    Finally
      ReleaseDC(0,Canvas.Handle);
    end;
end;

das Problem ist aber, das wenn zb in einer Listbox eine Markierung da ist! wird diese nicht in den Screenshot übernommen!

Wieso nicht ?