用 OnNewWindow2 具体用法去看帮助吧!! 这个可以的 procedure TForm1.WebBrowserNewWindow2(Sender: TObject; var ppDisp: IDispatch; var Cancel: WordBool); begin ppdisp := webBrowser.Application; end;
form1是你的窗体名,webbrowser控件名是webbrowser1 private command1_click() webbrowser1.navigate "http://www.csdn.net" end sub private sub webbrowser1_newwindow2(ppdisp as object,cancel as boolean) dim frmWB as form1 set frmWB=new form1 frmWB.webbrowser1.registerasbrower=true set ppdisp=frmWB.webbrowser1.object frmWB.visible=True end sub
具体用法去看帮助吧!!
这个可以的
procedure TForm1.WebBrowserNewWindow2(Sender: TObject; var ppDisp: IDispatch;
var Cancel: WordBool);
begin
ppdisp := webBrowser.Application;
end;
private command1_click()
webbrowser1.navigate "http://www.csdn.net"
end sub
private sub webbrowser1_newwindow2(ppdisp as object,cancel as boolean)
dim frmWB as form1
set frmWB=new form1
frmWB.webbrowser1.registerasbrower=true
set ppdisp=frmWB.webbrowser1.object
frmWB.visible=True
end sub