Vaciar portapales

[rrf]

Puedes evitar el usar el ClipBoard usando Stream. Aquí te muestro como copiar del RichEdit3 al RichEdit1.

Lo de ms.position := 0 puede que no sea necesario.

Procedure Copia_REdit ;
var
ms : TMemoryStream ;
Begin

Try
ms := TMemoryStream.Create ;
RichEdit3.Lines.SaveToStream ( ms ) ;
ms.position := 0 ;
RichEdit1.Lines.LoadFromStream( ms );
Finally
ms.free ;
end ;

end ;


No recuerdo si así se mantiene el tipo de letra, color, etc.

Espero que te sea útil.

Ramón.