你在说什么?RichEditBox ?没有吧?
你应该用RxLib的RxRichEdit控件实现插入图片的功能。
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;
记得添加Clipbrd单元。