delphi - 使用 Delphi TWebBrowser 拦截超链接点击

Question

使用 Delphi 7，带有加载了 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 应该足以满足我们在这里所做的工作。