利用剪贴板!
Richedit1.SelectAll;
SendMessage(Richedit1.handle,WM_COPY,0,0);
SendMessage(Richedit3.Handle,WM_Paste,0,0);Richedit2.SelectAll;
SendMessage(Richedit2.handle,WM_COPY,0,0);
SendMessage(Richedit3.Handle,WM_Paste,0,0);你试试看,我没试过是否能合并有图片的,格式文本可以!

解决方案 »

  1.   

    将两个richedit中的内容分别存在a1.rft,a2.rtf中,以文本方式打开两文件,
    看到的均是字符文件,编程去掉a1.rtf中最后一个'}',b1.rtf中从开头的‘{’
    开始,到第二个'{’前为止均删除,将删除后的两字符文件合并成一个文件c.rtf
    即可。你可先用手工的方式试验一下再编程,我在很早的时候用该控件编过一个排版系
    统,今天看到你的问题后,在我的计算机上试了一下,不知怎的我的richedit中不能存
    放图片,不知你是用的那种richedit控件,我的计算机是win2000,delphi5.0,以前的
    排版系统是用vb5.0,望告知
      

  2.   

    to jjwwcc(jjwwcc)
    我的计算机是Win2000、delphi5、Vb5、VB6。