Screenshot der Aktiven Form in Zwischenablage ?

[Cyberbob_at_tot]

Hallo zusammen,

das mit der Zwischenablage scheint ja nicht so schwer zu sein.

Aber wie bekomme ich ein Bild der Aktiven Form da rein?

Habe schon im Forum gesucht aber nichts für die Form gefunden!

Habt ihr eine Idee?

BIG THX

Cyberbob

[Khabarakh]

Sollte mit PaintTo gehen.
Mit der DP-Suche gefunden :wink: .

[Jelly]

Kuck dir mal diesen Beitrag an, da ist der Quellcode zum Erstellen des Screenshots mit dabei.

[Cyberbob_at_tot]

Danke für die schnelle Antwort, werde mir mal Paintto und das BSP ansehen! mal sehen also!

[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 ?

[Jelly]

Wenn du's nach meiner Methode machst, sollte es funktionieren.