下面是我写的一个方法,你只要把第一个WebBrowser的OnNewWindow2事件指定它就可以了。
procedure TMain_Frm.DoOnWebBrowserNewWindow2(ASender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
var
WB: TWebBrowser;
Temp_TabSheet: ttabsheet;
IDoc:IHTMLDocument2;
begin
Temp_TabSheet:= TTabsheet.create(self);
WB:= TWebBrowser.Create(self);
Temp_TabSheet.PageControl:= pc;
Temp_TabSheet.InsertControl(WB);
PC.ActivePage:= Temp_TabSheet;
WB.Align:= AlClient;
ppDisp := WB.Application;
WB.OnNewWindow2:= DoOnWebBrowserNewWindow2;
end;