uses clipbrd;

procedure TShowVRML.Kopieren1Click(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 ;

Опрос