Форма как графический объект

Советы » Буфер обмена » Форма как графический объект

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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com