如何在Richedit中加入圖片，像QQ那樣的功能.....

Question

如題.....

Answer 1

RxLib里有个RxRichEdit，支持插入图片。
uses Clipbrd;
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;

Answer 2

謝謝小小，我的郵箱是：
[email protected]