procedure TForm1.wb1NewWindow2(Sender: TObject; var ppDisp: IDispatch;
var Cancel: WordBool);
begin
ppDisp:=wb2.DefaultDispatch;
end;
或者
procedure TForm1.wb1NewWindow2(Sender: TObject; var ppDisp: IDispatch;
var Cancel: WordBool);
begin
ppDisp:=wb2.Application;
end;
![快哭了](http://static.blog.csdn.net/xheditor/xheditor_emot/default/fastcry.gif)