ya lo he solucionado. La solución es :
var
Pic: TPicture;
begin
if OpenPictureDialog1.Execute Then
begin
Pic := TPicture.Create;
try
Pic.LoadFromFile(OpenPictureDialog1.FileName);
Clipboard.Assign(Pic);
RxRichEdit1.PasteFromClipboard;
finally
Pic.Free;
end;
end;
|