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导航上多次出现 这很烦人，使这个事件几乎无用。

为什么会这样？怎么避免这个？
三江源

Answer 1

OnNavigationComplete2事件处理程序可能更适合您的应用程序。

  

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

     

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