用Delphi TWebBrowser截取超链接点击

Question

使用Delphi7，使用加载了HTML文件的TWebBrowser组件...如何拦截一个超链接点击，以便我可以决定是否要做除了允许TWebBrowser获取链接之外的其他事情？

我尝试过以下操作，但当我单击超链接时，事件永远不会触发：

procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
  Cancel := True;
  ShowMessage(URL);
  WebBrowser1.Stop;
end;

Answer 1

我们所做的代码几乎和你上面所展示的完全一样。

你在组件中挂接你的事件处理程序了吗？

我们不做.Stop。我不知道这能做什么，也不知道你为什么要这么做。对于我们在这里所做的事情，Cancel := TRUE应该足够了。