webbrowser使用问题

Question

在webBrowser中得页面点链接，不弹出新窗口而直接在本窗口显示代码如下：procedure TfromMain.spbtnTVClick(Sender: TObject);
var
  Url: string;
begin
  Url := 'http://tv.sohu.com/hdtv/'
  if Url <> '' then WebBrowser2.Navigate(Url);
end;procedure TfromMain.WebBrowser2StatusTextChange(Sender: TObject;
  const Text: WideString);
begin
  FNewUrl := Text;
end;procedure TfromMain.WebBrowser2NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
begin
  Cancel := True;
  ppDisp := WebBrowser2.Application;
  WebBrowser2.Navigate(FNewUrl)
end;
功能是实现了，但显示页面时，老是弹出脚本错误“对象不支持该属性”，请问是怎么回事

Answer 1

设置WebBrowser1.Silent := True;
忽略脚本错误

Answer 2

在2003系统不会出错，在XP系统会弹出valid float point operation错误