H honghs Unregistered / Unconfirmed GUEST, unregistred user! 2003-10-09 #2 处理twebbrowser的newwindow2事件，在这儿写代码 procedure TForm1.WebBrowser1NewWindow2(Sender: TObject; var ppDisp: IDispatch; var Cancel: WordBool); begin ppDisp:=WebBrowser1.Application; end;
处理twebbrowser的newwindow2事件，在这儿写代码 procedure TForm1.WebBrowser1NewWindow2(Sender: TObject; var ppDisp: IDispatch; var Cancel: WordBool); begin ppDisp:=WebBrowser1.Application; end;
]