利用剪贴板实现插入图片
uses Clipbrd;
...
procedure TMainForm.InsertImg(sFN: string; RxEdit: TRxRichEdit);
{插入图像到RXRICHEDIT中
sFN : 图像文件
RxEdit : 要插入图像文件的控件
}
var
Pict : TPicture;
begin
Pict := TPicture.Create;
try
Pict.LoadFromFile(sFN);
Clipboard.Assign(Pict);
RxEdit.PasteFromClipboard;
finally
Pict.Free;
end;
end;