Форма как графический объект
Каким образом можно скопировать форму в буфер обмена в виде графического изображения?
|
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; |
