RichEdit中怎么加入图片？

Question

可以吗？不行的吧。
delphi深度探索中有把richedit经过扩展使它可以显示图片的例子。

Answer 1

下面的代码可以不调用那个InsertObject的对话框而直接插入一张图片：
var
  Bmp:TBitmap;
begin
  if not OpenPictureDialog1.Execute then exit;
  Bmp:=TBitmap.Create;
  Bmp.LoadFromFile(OpenPictureDialog1.FileName);
  Clipboard.Assign(BMP);
  RxRichEdit201.PasteFromClipboard;
  Bmp.Free;
end;

Answer 2

补充:
Delphi的RichEdit组件没有实现插入图片及URL检测。看看RichEdit的源码（comctrls.pas），你会发现Borland仍然是用RichEdit 1.0版本。很不幸，因为Microsoft RichEdit控制的2.0版本支持图片和URL检测和其它很多有用的特试着搜索一下riched*.dll，你会找到两个--RICHED32.DLL和RICHED20.DLL--位于windows\system或winnt\system32文件夹中。前一个文件实现RichEdit 1.0版本的特性，后一个文件实现新的2.0版特性。上面用到的RxRichEdit是RXlib中的控件,或者使用Infopower中的RichEdit也可以

Answer 3

在richedit中插入图片可以用RXLib里的RxRichedit控件，richedit本身很难实现。
http://www.csdn.net/cnshare/shtm/93.shtm有这个控件的下载
先添加Clipbrd单元。
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;
或者：
uses Clipbrd;
procedure TMainForm.InsertImg(sFN: string; RxEdit: TRxRichEdit);
{插入图像到RXRICHEDIT中
sFN    : 图像文件
RxEdit : 要插入图像文件的控件
}
var
  Pict              : TPicture;
begin
  Pict := TPicture.Create;
  try
    Pict.LoadFromFile(sFN);
    Clipboard.Assign(Pict);
    RxEdit.PasteFromClipboard;
  finally
    Pict.Free;
  end;
end;

Answer 4

用RichEdit就可以实现，到精华区看看这篇贴子：http://www.csdn.net/expert/topic/656/656711.xml?temp=.9040949