Форма как графический объект
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; |
Далее: Hook на буфер обмена »»