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

[Tomy]

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:

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...)!!!

Tambien he provado:

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

[ContraVeneno]

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

[Tomy]

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

[Tomy]

Encontré la solución en el siguiente hilo:

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