delphi - Delphi：WebBrowser 的 OnDownloadComplete 一次发生多次

Question

例如在这段代码中：

procedure TForm1.WebBrowser1DownloadComplete(Sender: TObject);
begin
        ShowMessage('Download Completed');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
        WebBrowser1.Navigate('http://www.google.com/');
end;

“WebBrowser1DownloadComplete”消息在 1 Navigate 上多次出现。
这很烦人，使这个事件几乎毫无用处。

为什么会这样？如何避免这种情况？
谢谢

Answer 1

也许 OnNavigationComplete2 事件处理程序更适合您的应用程序。

在 Web 浏览器成功导航到新位置后立即发生。

编写 OnNavigateComplete2 事件处理程序以在 Web 浏览器成功导航到新资源时执行特定操作。该事件可以在文档完全下载之前发生，但是当它发生时，必须至少接收部分文档并创建文档的查看器。