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 的属性(property)代码中的接口(interface)。

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

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

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