禁用對話框webbrowser 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

我覺得至極您正在使用從IHTMLDocument2接口的designMode財產在你的代碼。

您可以禁用將該屬性設置爲「關閉」的對話框。

嘗試此代碼之前切換到新的頁面

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