Copy your form into the clipboard

Send By: Q3 Team
Web : http://www.q3.nu
Email: dlib@q3.nu
Date: 22/12/99

Tip accessed 78 times

Add 'Clipbrd' in the uses of your form

Put this code in the OnClick of a TButton

 procedure TForm1.Button1Click(Sender: TObject);
 var bitmap:tbitmap;
 begin
   bitmap:=tbitmap.create;
   bitmap.width:=clientwidth;
   bitmap.height:=clientheight;
   try
     with bitmap.Canvas do
       CopyRect (clientrect,canvas,clientrect);
     clipboard.assign(bitmap);
   finally
     bitmap.free;
   end;
 end;