关于 RichEdit,来者有分

Question

如何在 RichEdit 里插入图片?急

Answer 1

var
  Picture: TPicture;
  OpenPictureDialog: TOpenPictureDialog;
begin
  OpenPictureDialog := TOpenPictureDialog.Create(nil);
  try
    OpenPictureDialog.Filter := Format('%s|%s|%s', [GraphicFilter(TBitmap),
      GraphicFilter(TMetafile),GraphicFilter(TJPEGImage)]);
    if OpenPictureDialog.Execute then
    begin
      Picture := TPicture.Create;
      try
        Picture.LoadFromFile(OpenPictureDialog.FileName);
        Clipboard.Assign(Picture);
        RichEdit21.PasteFromClipboard;
      finally
        Picture.Free;
      end;
    end;
  finally
    OpenPictureDialog.Free;
  end;

Answer 2

不要用Delphi自带的那个，那是过时东西，用第3方的，例如RxRichedit.