webBrowser提示出错 (100分)

procedure TForm1.ToolButton1Click(Sender: TObject);
begin
webBrowser1.ExecWB(OLECMDID_COPY,OLECMDEXECOPT_DONTPROMPTUSER);
end;
试图激活未注册的丢弃目标。

是不是还要uses activex？说错了别笑

uses comobj,activex

都不能解决。那位兄弟再出手。

在窗体单元的最后一行
end.
之前加上:
initialization
OleInitialize(nil);

finalization
OleUninitialize;

这是因为你 webbrowser还没有初始化。 先要用 navigate 引导到一个页面。

可能没见过这样的代码，加上
initialization
OleInitialize(nil);

finalization
OleUninitialize;
根本就没东东复制的剪帖板。
不用这段代码，webbrowser不选择还没事，如选择几个文字，复制就报错。

那位大虾给个可以复制的原码一看。

procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate('d:/temp.htm');
end;

谢谢：jsxjd！
我要的是能复制网页文字的代码。

在窗体单元的最后一行
end.
之前加上:
initialization
OleInitialize(nil);

finalization
OleUninitialize;


procedure TForm.ToolButton1Click(Sender: TObject);
var Doc: IHTMLDocument2;
begin
try
Doc :=WebBrowser1.Document as IHTMLDocument2;
if Doc.QueryCommandEnabled('Copy') then
Doc.ExecCommand('Copy',false,EmptyParam);
except on E: Exception do
raise Exception.Create('执行复制操作出现错误：' + E.message);
end;
end;

用下面代码设置按钮是否可用。
var Doc: IHTMLDocument2;
begin
try
Doc :=WebBrowser1.Document as IHTMLDocument2;
ToolButton1.Enabled := Doc.QueryCommandEnabled('Copy');
except
ToolButton1.Enabled := False;
end;
end;