http://delphi.ktop.com.tw/topic.php?TOPIC_ID=52375 我還是無法將 RxRichEdit1 的內容合併到 RxRichEdit2 ，用剪切板 有時候會發生衝突 用 TMemoryStream 合併也行步通 ，可能是我寫錯了，出來的結果不成功！ 請版主幫幫忙，我真的想不到其他的變法了！ 麻煩你們了，謝謝~

測試方法: 在 RxRichEdit1 與 RxRichEdit2 上各輸入些文字, 並加以變化 然後在 RxRichEdit1 上選取要插入至 RxRichEdit2 上的字 按下 Button1 將游標點在 RxRichEdit2 上要插入 RxRichEdit1 內容的位置 然後按下 Button2 即可看到 RxRichEdit1 上中被選取的內容已插入 RxRichEdit2 中

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, RichEdit, RxRichEd;    type
  TForm1 = class(TForm)
    RxRichEdit1: TRxRichEdit;
    RxRichEdit2: TRxRichEdit;
    Button1: TButton;
    Memo1: TMemo;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    Type
  // These declarations are wrong in richedit.pas, the stdcall is missing.
  TEditStreamCallBack = function (dwCookie: Longint; pbBuff: PByte;
    cb: Longint; var pcb: Longint): Longint; stdcall;      TEditStream = record
    dwCookie: Longint;
    dwError: Longint;
    pfnCallback: TEditStreamCallBack;
  end;    var
  Form1: TForm1;    implementation    {$R *.DFM}    Function EditStreamInCallback(dwCookie: Longint; pbBuff: PByte;
    cb: Longint; var pcb: Longint): Longint; stdcall;
var
  theStream: TStream;
  dataAvail: LongInt;
begin
  theStream := TStream(dwCookie);      with theStream do
  begin
    dataAvail := Size - Position;
    if dataAvail <= cb then
    begin
      pcb := Read(pbBuff^, dataAvail);
      Result := 0;
    end
    else
    begin
      pcb := Read(pbBuff^, cb);
      Result := pcb;
    end;
  end;
end;    Function EditStreamOutCallback(dwCookie: Longint; pbBuff: PByte;
    cb: Longint; var pcb: Longint): Longint; stdcall;
var
  theStream: TStream;
begin
  theStream := TStream(dwCookie);      with theStream do
  begin
    If cb > 0 Then
    Begin
      pcb := Write(pbBuff^, cb);
      Result := pcb;
    End
    Else
      Result := 0;
  end;
end;    Procedure GetRTFSelection(ARxRichEdit: TRxRichEdit; intoStream: TStream);
Var
  editstream: TEditStream;
Begin
  With editstream Do
  Begin
    dwCookie := Longint(intoStream);
    dwError := 0;
    pfnCallback := EditStreamOutCallBack;
  end;
  ARxRichedit.Perform(EM_STREAMOUT, SF_RTF or SFF_SELECTION, longint(@editstream));
End;    Procedure PutRTFSelection(ARxRichEdit: TRxRichEdit; sourceStream: TStream);
Var
  editstream: TEditStream;
Begin
  With editstream Do
  Begin
    dwCookie := Longint(sourceStream);
    dwError := 0;
    pfnCallback := EditStreamInCallBack;
  end;
  ARxRichedit.Perform(EM_STREAMIN, SF_RTF or SFF_SELECTION, longint(@editstream));
End;    procedure TForm1.Button1Click(Sender: TObject);
Var
  aMemStream: TMemoryStream;
begin
  aMemStream := TMemoryStream.Create;
  try
    GetRTFSelection(RxRichEdit1, aMemStream);
    aMemStream.Position := 0;
    memo1.Lines.LoadFromStream(aMemStream);
  finally
    aMemStream.Free;
  end;
end;    procedure TForm1.Button2Click(Sender: TObject);
Var
  aMemStream: TMemoryStream;
begin
  aMemStream := TMemoryStream.Create;
  try
    memo1.Lines.SaveToStream(aMemStream);
    aMemStream.Position := 0;
    PutRTFSelection(RxRichEdit2, aMemStream);
  finally
    aMemStream.Free;
  end;
end;    end.

參考 Peter Below 大大的連結: http://groups.google.com.tw/groups?hl=zh-TW&lr=&ie=UTF-8&selm=VA.00000a91.0005d52b%40noname -- Everything I say is a lie.

謝謝 hagar 大大，搞定了!

糟糕了，上面的方法，只能處理文字，如果包括圖片就不行了~~

這樣就可以解決了~  > > > >

想問有這個的RxRichEd.pas檔嗎........?
因為沒辦法執行........

------
小ＬＯ