Получить изображение формы в виде Bitmap и поместить его в буфер обмена

// Copy form1 as bitmap into the clipboard 
// Kopiert Form1 als Bitmap in die Zwischenablage 

procedure
 TForm1.Button1Click(Sender: TObject);
 var

   imgWindow: TBitmap;
 begin

   imgWindow := GetFormImage;
   try

     Clipboard.Assign(imgWindow);
   finally

     imgWindow.Free;
   end
;
 end
;

 // Save the bitmap to a file 
// Das Bitmap in einer Datei speichern: 

procedure
 TForm1.Button2Click(Sender: TObject);
 var

   imgWindow: TBitmap;
 begin

   imgWindow := TBitmap.Create;
   try

     imgWindow := Form1.GetFormImage;
     imgWindow.SaveToFile('c:FormImage.bmp');
   finally

     imgWindow.Free;
   end
;
 end
;

Другое по теме:

• Форма как графический объект
• Сохранить содержимое буфера обмена или потока как картинку
• Сохранение данных в Clipboard