-----------------------------
下面这个方法可以:
Pict.LoadFromFile(FileName);
if (Pict<> nil) and (not Pict.Empty) then begin
Clipboard.Assign(Pict);
Editor.PasteFromClipboard;
end;
或者:
var
Pict: TPicture;
begin
with FOpenPictureDialog do begin
if Execute then begin
Pict := TPicture.Create;
try
Pict.LoadFromFile(FileName);
Clipboard.Assign(Pict);
Editor.PasteFromClipboard;
finally
Pict.Free;
end;
end;
end;
end;