〓〓〓〓 如何在rxlib的richedit中插入图片??? 〓〓〓〓

[ivan_oyo]

[scripting]

自己控制，loadfromfile,借助粘贴板

[taxi]

uses Clipbrd;

procedure TForm1.InsertPicture(const FileName: string);
var
Picture: TPicture;
JpegImage: TJpegImage;
sExt, sClip: string;
begin
sExt := LowerCase(ExtractFileExt(FileName));
if Clipboard.AsText <> '' then
sClip := Clipboard.AsText;
if (sExt = '.jpg') or (sExt = '.jpeg') then
begin
JpegImage := TJpegImage.Create;
JpegImage.LoadFromFile(FileName);
Clipboard.Assign(JpegImage);
JpegImage.Free;
end
else begin
Picture := TPicture.Create;
Picture.LoadFromFile(FileName);
Clipboard.Assign(Picture);
end;
RxRichEdit.PasteFromClipboard;
if sClip <> '' then
Clipboard.AsText := sClip;
end;