delphi - delphi 禁用对话框网络浏览器

Question

如何防止出现该对话框 此文档已更改。保存更改？当网络浏览器关于:空白时发生的转换

非常感谢。这样做了

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

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

先尝试此代码以更改到新页面

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