Von RichEdit1 in RichEdit2 formatierten Text einfügen!!!

[scp]

Wenn der Text, der rüberkopiert werden soll, in einer durchgehenden Formatierung ist, gehts so:

Delphi-Quellcode:

begin
  RichEdit1.SelectAll;

  RichEdit2.SelLength := 0;
  RichEdit2.SelText := RichEdit1.Text;
  RichEdit2.SelStart := RichEdit2.SelStart-length(RichEdit1.Text);
  RichEdit2.SelLength := length(RichEdit1.Text);
  RichEdit2.SelAttributes := RichEdit1.SelAttributes;

  RichEdit2.SelLength := 0;
  RichEdit1.SelLength := 0;
end;