Tengo dos TRichEdit, en uno de ellos se está generando un resumen de una serie de pantallas (a partir de ahora, lo llamaré "Destino"), y en el otro una anotación que puede o no tener formato (ya saben, negritas, itálicas, bullets, etc.) y que es necesario "trasvasar" al destino.
El código que estoy utilizando (y que obviamente, no funciona como quiero, si no no estaría preguntando ahora) es éste:
delphi
with redtResumen do //TRichEdit Destino begin Clear; if Trim(redtMotivo.Text) > '' then begin Lines.Add('Motivo.'); Lines.Add(' '); redtMotivo.SelectAll; redtMotivo.CopyToClipboard; PasteFromClipboard; Lines.Add(' '); end; . . . . end;
La pregunta en concreto es: ¿Cómo puedo pasar el CONTENIDO COMPLETO (el texto no, puesto que no conservaría los formatos) de un TRichEdit hacia el otro? Y además, permitir que se continúe agregando texto (con o sin formato) al TRichEdit DESTINO?