Página 1 de 1

Pasar imagen enTBevel a Portapapeles

Publicado: Jue Jun 03, 2021 11:43 pm
por 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

Re: Pasar imagen enTBevel a Portapapeles

Publicado: Mar Jun 15, 2021 1:28 pm
por 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.

Re: Pasar imagen enTBevel a Portapapeles

Publicado: Sab Ene 08, 2022 8:16 am
por bingen
Con esta clase podrás hacer eso y mucho más...
CaptureBitmap.7z
(1.59 KiB) Descargado 82 veces