Articles

Use the GetFormImage method to obtain a bitmap of the form and save it to the clipboard by Clipboard.Assign method. implementation uses Clipbrd;

procedure TForm1.Button2Click(Sender: TObject);
var
  Bitmap: TBitMap;
begin
  try
    Bitmap:=GetFormImage;
    Clipboard.Assign(Bitmap);
    Image1.Picture.Assign(Clipboard);
  finally
  end;
end;
end;