DruckenMister WongFacebook

Formular als Bitmap in die Zwischenablage kopieren

System Win9x, WinNT, Win2000, WinXP, Vista, Win7
Ab Delphi-Version Delphi 1
Letzte Änderung 28.09.2010

Dieser Artikel zeigt, wie Sie ein Formular in die Zwischenablage kopieren können. Es wird allerdings nur der Client-Bereich erfasst (es fällt beispielsweise das MainMenu heraus). Auch werden verschiedene Beschriftungen (z.B. einer Combobox) nicht berücksichtigt.

Binden Sie die Unit ClipBrd über die uses-Klausel ein!

procedure TForm1.Button1Click(Sender: TObject);
var
Bitmap: TBitmap;
begin
Bitmap:=GetFormImage;
try
   Clipboard.Assign(Bitmap);
finally
   Bitmap.Free;
end;
end;

Wie Sie aus dem oben stehenden Quelltext entnehmen können, wird das Formular als TBitmap in die Zwischenablage kopiert. Weitere Informationen finden Sie in der Online-Hilfe von Delphi unter dem Stichwort "TCustomForm,GetFormImage".