如何在WebBrowser控件中复制文本

Question

我在delphi7中用WebBrowser控件学做浏览器,发现不能在这个浏览器中复制一小段文本到其它地方,如不能粘贴到记事本中.
请请大侠指教!

Answer 1

如何在TWebBrowser中能实现复制操作！将其中的文本拷贝到记事本中
uses MSHTML_TLB;procedure TForm1.EditCopyClick(Sender: TObject);
var
  Doc: IHTMLDocument2;
begin
  Doc :=WebBrowser1.Document as IHTMLDocument2;
  if Doc.QueryCommandEnabled('Copy') then
    Doc.ExecCommand('Copy',false,0);
end;
如果报异常，需Install package。
如果想在WebBrowser中点右键然后能实现这个功能
首先注意  USES ACTIVEX然后在所有语句函数/过程之后,end.之前添加
initialization
OleInitialize(nil);
finalization
OleUninitialize;