如何在Richedit中贴图片阿？就像QQ的聊天窗口可以发送图片，显示图片阿？

Question

如何在Richedit中贴图片阿？就像QQ的聊天窗口可以发送图片，显示图片阿？
或者有没有这种控件？？

Answer 1

是以OLE形式嵌入的。
用ExRichEdit(RichEdit2)可以直接插入图片。

Answer 2

用ExRichEdit控件可以直接插入图片
以下是ExRichEdit的插入图片代码
procedure TForm1.Button1Click(Sender: TObject);
var
  Pict :TPicture;
begin
  with OpenPictureDialog1 do begin
    if Execute then begin
      Pict := TPicture.Create;
      try
        Pict.LoadFromFile(FileName);
        Clipboard.Assign(Pict);
        RxRichEdit1.PasteFromClipboard;
      finally
        Pict.Free;
      end;
    end;
  end;
end;记得添加Clipbrd单元。

Answer 3

rxrichedit有一个例子，有这个功能