uses clipbrd; procedure TShowVRML.Kopieren1Click(Sender: TObject); var bitmap:tbitmap; begin bitmap:=tbitmap.create;bitmap.width:=clientwidth;bitmap.height:=clientheight;trywith bitmap.Canvas doCopyRect (clientrect,canvas,clientrect);clipboard.assign(bitmap);finallybitmap.free;end; end; |