Author: Radikal Q3

Put the form contents in the clipboard.

Answer:

Add 'Clipbrd' in the uses of your form
Put this code in the OnClick of a TButton

1   procedure TForm1.Button1Click(Sender: TObject);
2   var bitmap:tbitmap;
3   begin 
4     bitmap:=tbitmap.create;
5     bitmap.width:=clientwidth;
6     bitmap.height:=clientheight;
7     try
8       with bitmap.Canvas do 
9         CopyRect (clientrect,canvas,clientrect);
10      clipboard.assign(bitmap);
11    finally
12      bitmap.free;
13    end; 
14  end;