让Webbrowser中的链接点击时在自身窗口打开 在WebBrowser的NewWindow2事件中设置代码:procedure TForm1.WebBrowserNewWindow2(Sender: TObject; var ppDisp: IDispatch; var Cancel: WordBool);begin // 将新视窗在自身开启 ppdisp := webBrowser.Application;end;