In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

Pasar imagen enTBevel a Portapapeles

Foro público de Xailer en español
Responder
Moises Leon
Mensajes: 103
Registrado: Mié Dic 15, 2010 4:45 pm

Pasar imagen enTBevel a Portapapeles

Mensaje 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
jvtecheto
Mensajes: 127
Registrado: Jue Dic 19, 2013 1:18 pm

Re: Pasar imagen enTBevel a Portapapeles

Mensaje 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.
Avatar de Usuario
bingen
Mensajes: 564
Registrado: Lun Jul 07, 2014 8:17 pm
Ubicación: Bilbao
Contactar:

Re: Pasar imagen enTBevel a Portapapeles

Mensaje por bingen »

Con esta clase podrás hacer eso y mucho más...
CaptureBitmap.7z
(1.59 KiB) Descargado 74 veces
BiSoft Desarrollo de software profesional
http://www.bisoft.es
Responder