如何在WebBrowser控件中复制文本

[wjcwjcwjc]

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

[liuqstion]

up

[wilowind]

如何在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;