delphi webbrowser 如何控制访问远程网页之前 先访问本地页面 访问出错也访问本地页面

Question

delphi webbrowser 如何控制访问远程网页之前 先访问本地页面 访问出错也访问本地页面procedure TForm1.webbrowser3StatusTextChange(ASender: TObject;
  const Text: WideString);
begin
if Ansipos('res',text) <> 0 then
    webbrowser3.Navigate(ExtractFilePath(ParamStr(0))+'err.html');
end; 
 总是出错提示资源正在使用中？ 。。   求解~~~

Answer 1

不要在webbrowser3StatusTextChange事件中访问新网页
procedure TfrmMain.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
beginif 判断 then
  webbrowser1.Navigate(ExtractFilePath(ParamStr(0))+'err.html');
end;end;