Home » Tipps & Tricks » Grafik » Sonstiges » Formular als Bitmap in die Zwischenablage kopieren

Formular als Bitmap in die Zwischenablage kopieren

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“.