Pasar imagen enTBevel a Portapapeles

[Moises Leon]

Saludos al grupo

Tengo una imagen cargada en un control TBevel y necesito que con un boton, esta imagen se copie al portapapeles pero no lo he logrado hacer. ¿Hay alguna forma de hacerlo?

Saludos y gracias
Moises Leon

[jvtecheto]

Hola Moises:

Has probado algo como esto.

Código: Seleccionar todo

local oClp := TClipboard():Create()
   oClp:open()
   IF oClp:setData(CF_DSPBITMAP,::oBevel1:oBkgnd)
        MsgInfo("Informacion pasada correctamente al portapapeles")
   ENDIF	    

Un saludo.

Jose.

[bingen]

Con esta clase podrás hacer eso y mucho más...

CaptureBitmap.7z

(1.59 KiB) Descargado 107 veces