如何在RichText中粘贴图像(100分)

我在RichText中粘贴图像时，显示的都是乱码。特向各位老兄请教。

本来就不支持粘贴图像的

RichText顾名思义就是丰富文本格式, 你说支不支持图像呢?

用rxrichedit吧，rxlib中的。

诚挚谢谢你们的回答!

RichView (Freeware) v0.5.2
作者:Sergey Tkachenko. TRichView是一款不错的memo控件，支持：
加载背景图片；
定义各段文字不同的字体、颜色；
超文本；
加载图片；
加载Image Lists中的图片；
还可以加入其它Delphi控件；
打印，保存为txt或html文件。
还有，这可是freeware版的哦，大家可以放心的用了！！

完整功能. 源代码: 有
适用于 D2 D3 D4 D5 D6 C1 C3 C4 C5
http://www.delphibyte.com/download/softdown.php?softid=395&url=http://61.132.118.165/soft/delphi/Delphi3/richview.zip

RichView里好像不能编辑吧？
有那个richedit for d6 的吗？
我有个但是没有解密，总是会出现一个红框，提示未注册。能帮忙吗？

怎么可能不能编辑呢

你可能属性没有设置好吧

能象edit那样在程序运行的过程中，写东西吗？编辑吗？

Rxlib里的RXrichedit非常不错，DELPHI的richedit不支持图象。

虽然用普通的方法RichEdit是不能显示图片的，但你可以用Canvas来画上去！如下:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, jpeg, ExtCtrls, ComCtrls;

type
TForm1 = class(TForm)
RichEdit1: TRichEdit;
Image1: TImage;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure RichEdit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
MyCanvas: TControlCanvas;
Begin
MyCanvas:=TControlCanvas.Create;
Mycanvas.control:=RichEdit1;//想在RichEdit1上作画
With Mycanvas do
Begin
//这里可以更改为你的作图程序
Draw(0,0,image1.Picture.Graphic);
Font.Color := clRed;
Brush.Style := bsClear;
TextOut(10,10,'在RichEdit中显示图片');
end;
End;

procedure TForm1.RichEdit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
RichEdit1.Brush.Style := bsClear;
end;

end.

wind2000,老兄开什么玩笑，这个都上来了，画完怎么用啊，一动了再画？呵呵

利用RxLib的RxRichEdit控件实现你的要求！

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单元。

谢谢大家