delphi 禁用对话框网络浏览器
如何防止出现该对话框 此文档已更改。保存更改？当网络浏览器关于：空白时发生的转换
非常感谢。这样做了
Browser.Navigate ('about: blank');
DesignMode (false ,'');
Browser.OnNavigateComplete2: = NavigateComplite;
procedure NavigateComplite (ASender: TObject; const pDisp: IDispatch; var URL: OleVariant);
begin
DesignMode (true ,'');
end;
how to prevent the appearance of the dialog box This document has changed. save changes? which occurs in the transition when webbrowser about: blank
Thank you so much. did so
Browser.Navigate ('about: blank');
DesignMode (false ,'');
Browser.OnNavigateComplete2: = NavigateComplite;
procedure NavigateComplite (ASender: TObject; const pDisp: IDispatch; var URL: OleVariant);
begin
DesignMode (true ,'');
end;
如果你对这篇内容有疑问，欢迎到本站社区发帖提问 参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。
绑定邮箱获取回复消息
由于您还没有绑定你的真实邮箱，如果其他用户或者作者回复了您的评论，将不能在第一时间通知您！
发布评论
评论（1）
我认为您正在使用
来自的 designMode属性代码中的IHTMLDocument2接口。您可以将此属性设置为“关闭”来禁用该对话框。
在更改到新页面之前尝试此代码
i think wich you are using the
designModeproperty from theIHTMLDocument2Interface in your code.you can disable the dialog box setting this property to 'Off'.
try this code before to change to the new page