如何把richedit1的内容格式不变的复制到richedit2里?

richedit2.text:=richedit1.text;
这是不行的,因为只复制了内容,但内容的格式却变了,即不能保存原来的字型,字体.

解决方案 »

  1.   

    richedit2.text:=richedit1.text;
    RichEdit2.Font := RichEdit1.Font;
      

  2.   

    RichEdit1.SelStart:=0;
      RichEdit1.SelLength:=Length(RichEdit1.Lines.Text);
      RichEdit1.CopyToClipboard;
      RichEdit2.Lines.Clear;
      RichEdit2.PasteFromClipboard;
      

  3.   

    richedit2.Lines = richedit1.Lines;
      

  4.   

    richedit2.Font.Charset:=richedit1.Font.Charset;
      richedit2.Font.Color:=richedit1.Font.Color;
      richedit2.Font.Height:=richedit1.Font.Height;
      richedit2.Font.Name:=richedit1.Font.Name;
      richedit2.Font.Pitch:=richedit1.Font.Pitch;
      richedit2.Font.Size:=richedit1.Font.Size;
      richedit2.Lines := richedit1.Lines;
      

  5.   

    richedit1.SelectAll;
    richedit1.CopyToClipboard;
    richedit2.Clear;
    richedit2.PasteFromClipboard;
      

  6.   

    chwdong(chwdong) 的答案是对的,其它的好象不行.
    多谢咱中国老乡.
      

  7.   

    flyforlove(为情飞) 的答案也是对的,其它的好象不行.
    多谢咱中国老乡.