webbrowser使用问题
在webBrowser中得页面点链接,不弹出新窗口而直接在本窗口显示代码如下:
- Delphi(Pascal) code
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;
忽略脚本错误