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

Question

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

Answer 1

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;