如何在TWebBrowser中强制在新窗口打开链接?
在用TWebBrowser编程中的问题:
有些页面的超链接点击后默认是在本窗口打开的,要想在新窗口打开必须“右键-> 在新窗口打开”,请问怎么强制让这样的链接左键点击后在新窗口打开?
我发现MyIE2等就有这样的功能,选择这个选项后点击所有的链接都会在新窗口打开网页。
[解决办法]
一、拦截link上的onclick事件,强行打开新窗口
二、在装入html时,强行对所有 <a> 标签加上target=blank属性
[解决办法]
楼上的方法可行
[解决办法]
帮顶
[解决办法]
在webbrowser中有一个事件叫OnNewWindowsClick你实现该事件,在里面返回一个新的webbrowser对象的IDispatch给它就是一个新窗口了。
[解决办法]
OnNewWindowsClick
[解决办法]
// Set OnNewWindow Event FBrowser.OnNewWindow2 := OnIENewWindow;procedure TfrmBizMain.OnIENewWindow(ASender: TObject; var ppDisp: IDispatch; var Cancel: WordBool);var FBrowser: TIEBrowser;begin if ASender is TIEBrowser then begin Cancel := not actNewTab.Execute; // Create A New WebBrowser if not Cancel then begin FBrowser := GetBrowser;// Get The Browser just Created if Assigned(FBrowser) then ppDisp := FBrowser.Application; end; end;end;