RichEdit中怎么加入图片？

[zo_ming]

刚才得知RichEdit里可插入图片但不知道怎么用，希望给出方法，谢谢

[robinhunter]

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

[Carfield]

下面的代码可以不调用那个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;

[Carfield]

补充:
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也可以

[pursuer]

在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;

[TechnoFantasy]

用RichEdit就可以实现，到精华区看看这篇贴子：

http://www.csdn.net/expert/topic/656/656711.xml?temp=.9040949

[hfycl]

mark