如何在RichEdit中插入图象(50分)

  • 主题发起人 主题发起人 flydragon0709
  • 开始时间 开始时间
F

flydragon0709

Unregistered / Unconfirmed
GUEST, unregistred user!
如何在RichEdit中插入图象
 
告诉你一个非常好用的、大名鼎鼎的控件--RxLib,其中有一
强力RxRichEdit控件,它能满足你的大部分要求,简直就是一个
真正完整的字处理软件,如Undo、Redo等不一而足。至于你要
在RxRichEdit插入图片,对于在剪切板中时,只需按下Ctrl+V
功能键即可或PasteFromClipboard,对于Jpeg等其它图形文件
或其它想要插入的东西,你可用InsertObjectDialog方法插入
该对象,真的很方便。对于Jpeg,当然你得注册此种类型的对象,
否则,你得用其它方法将它转换成可拷入剪切板的BMP图像,有
不少的图形控件都能进行这种格式转换。
对于RxLib,你还可在其中学习源代码以提高你的编程技巧。
利用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单元。
 
请看
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1336602
 
后退
顶部