webbrowser使用问题

[ljking0731]

在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;

功能是实现了，但显示页面时，老是弹出脚本错误“对象不支持该属性。。。”，请问是怎么回事

[千荒]

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

[ljking0731]

[Quote=引用 1 楼 zsmd000 的回复:]
设置WebBrowser1.Silent := True;
忽略脚本错误
[/Quote]
在2003系统不会出错，在XP系统会弹出valid float point operation错误