Cómo copiar texto al portapapeles

[Neftali [Germán.Estévez]]

Puedes utilizar la clase TClipBoard de Delphi.
Incluyes la unit "clipbrd" en la claúsula USES.

Declaras una variable declaramos (también puedes utilizar la ya declarada por Delphi).


cb : TClipBoard;


Lo creamos.

cb := TClipBoard.Create;


Almacenamos algo en él.


cb.AsText := 'Lo que quieras';


Y la liberamos:


cb.Free;

[roman]

No hace falta crear un objeto de la clase TClipboard ya que la VCL ya provee un objeto para tal efecto. Dicho objeto lo mantiene como una variable global (pero privada a la unidad Clipbrd) que expone mediante la función Clipboard. La VCL se encarga de destruir el objeto.