delphi - 禁用对话框 webbrowser delphi

Question

如何防止出现对话框 本文档已更改。保存更改？当 webbrowser about: 空白时发生在转换中

非常感谢。这样做了

  Browser.Navigate ('about: blank');
  DesignMode (false ,'');
  Browser.OnNavigateComplete2: = NavigateComplite;

procedure NavigateComplite (ASender: TObject; const pDisp: IDispatch; var URL: OleVariant);
begin
  DesignMode (true ,'');
end;

Answer 1

我认为您在代码中使用了接口中的designMode属性 。IHTMLDocument2

您可以禁用将此属性设置为“关闭”的对话框。

在更改到新页面之前尝试此代码

(WebBrowser1.Document as IHTMLDocument2).designMode := 'off';
WebBrowser1.Stop;