Pegar texto en el Portapapeles  

Enviado Por: Q3 Team
Web : http://www.q3.nu
Email: dlib@q3.nu
Fecha: 15/05/01

Truco accedido 80 veces

 


No olvides añadir 'ClipBrd' en el uses de tu form


Desde un RichEdit:


 procedure TForm1.Button4Click(Sender: TObject);
 begin
   ClipBoard.SetTextBuf(PChar(RichEdit1.text));
 end;



o tambien:


 procedure TForm1.Button6Click(Sender: TObject);
 begin
   RichEdit1.CopyToClipboard;
 end;



Pero sólo copia el texto seleccionado



Desde una string:


 procedure TForm1.Button5Click(Sender: TObject);
 var
    Cadena:string;
 begin
   Cadena:='Hola mundo/Hello World';
   ClipBoard.SetTextBuf(Pchar(Cadena));
 end;




Enviado por: Christian Engstfeld (Christian.Engstfeld@inworx.com.ar)

Si el control no soporta el mensaje, este simplemente lo ignora, y no efectua un excepcion.


 SendMessage(Edit1.handle, WM_COPY, 0, 0);





Actualizado el 15/05/2001