DELPHI自带的web浏览器插件使用中发现一个问题

Question

在使用DEELPHI自带的WEB浏览器插件，或者引入微软的IE插件在我们的窗体上。在执行浏览任务时，发现在该浏览器插件上显示的网页内容不能够正常复制、粘贴。不知原因何在？

Answer 1

uses mshtml, ActiveX;procedure TForm1.FormCreate(Sender: TObject);
begin
  WebBrowser1.Navigate('http://www.delphibbs.com');
end;procedure TForm1.Button1Click(Sender: TObject);
var
  HTMLDocument: IHTMLDocument2;
begin
    HTMLDocument := WebBrowser1.Document as IHTMLDocument2;
    Memo1.Text := HTMLDocument.body.innerText;　//直接把所有文本拷贝到MEMO中
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  WebBrowser1.ExecWB(OLECMDID_SELECTALL, OLECMDEXECOPT_PROMPTUSER, EmptyParam, EmptyParam); //选择全部
  WebBrowser1.ExecWB(OLECMDID_COPY, OLECMDEXECOPT_PROMPTUSER, EmptyParam, EmptyParam); //拷贝到剪贴板
end;