Foros Club Delphi - Parte de un RichEdit a otro RichEdit (donde esté el cursor)

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Parte de un RichEdit a otro RichEdit (donde esté el cursor) (https://www.clubdelphi.com/foros/showthread.php?t=28490)

Parte de un RichEdit a otro RichEdit (donde esté el cursor)

Mi problema és que quiero insertar, donde tengo el cursor, en un TRichEdit (que ya está lleno), el contenido de otro TRichEdit (que tiene un formato).
He provado:

Código:

var 

a:string;

 

begin

a:=RichEdit1.Text,

Insert(RichEdit2.text,a,RichEdit1.SelStart);

RichEdit1.Text:=a;

end;

Però de esta manera, pierdo todo el formato que tenia en el RichEdit1 i en el RichEdit2 (las negritas, distintas fuentes...)!!!:confused:

Tambien he provado:

Código:

var

temp:TmemoryStream;

begin

temp:=TMemoryStream.Create;

try

RichEdit2.Lines.SaveToStream(temp);

temp.Seek(0,soFromBeginning);

RichEdit1.Lines.LoadFromStream(temp);

finally

if Assigned(temp) then temp.Free;

end;

end;

Pero en este caso copia bien los formatos, pero no inserta el contenido de RichEdit2 en RichEdit1, sino que machaca lo que havia en RichEdit1 por lo que hay en RichEdit2.

Alguna idea?

Grácias

No estoy seguro, pero creo que si utilizas la propiedad seltext y selattributes del richedit te podría funcionar.

Gràcias por tu respuesta, però no se cómo. En el Richedit Original? En la copia? Me puedes dar más detalles?

Encontré la solución en el siguiente hilo:

http://www.clubdelphi.com/foros/show...ght=rxrichedit