Cojer el foco de la form

[ecfisa]

Hola.

Debes tener un TForm con un TMemo que será quién reciba el texto copiado en el portapapeles, también debes incluir la unidad Clipbrd en la parte de interface o implementation.
Las cabeceras de los métodos OnCreate y OnDestroy del formulario son generados desde el Object Inspector de forma visual por Delphi, copia el código correspondiente en cada uno.
La variable privada FChgHwnd y las definiciones de los métodos privados WMDrawClipboard y WMChangeCBChain debes copiarlos tal como estan en la parte private de tu TForm.
Estando al final del segundo método presionar la secuencia de teclas Ctrl+Shift+C para que Delphi te genere automáticamente las cabeceras por último copia el código que corresponda a cada uno de ellos.

El funcionamiento está basado en enviar y escuchar mensajes hacia y desde el portapapeles, te pongo unos enlaces a documentación:

• Basic Clipboard Operations (Cut/Copy/Paste) in Delphi
• How to get notified when the content of the clipboard changes

El código es muy conocido y vas a encontrar muchas variantes y explicaciones navegando.

Saludos.

[YosvanyRL]

Muchisimas gracias por responder y ayudarme. Que Dios Bendiga tu sabiduria y en todas las areas de tu vida.
Y gracias a este club maravilloso en donde simpre hay respuesta para todo.
Que Dios los Bendiga