请教高手：在DELPHI编程中的WEB页的超级链接，不是链接下一WEB页，而是弹出一个FORM窗口

Question

偶找到的，也不知道好不好用，你看看！
procedure Tfrm_Explorer.wb_DataInfoNewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
begin
  ppDisp :=web_New.DefaultInterface;
end;
其中，web_New是另一个TWebBrowser控件。 

Answer 1

WebBrowser1.Navigate('www.sina.com.cn');

Answer 2

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
begin
  ppDisp := WebBrowser2.ControlInterface;
end;

Answer 3

C:\Program Files\Borland\Delphi5\Demos\Coolstuf
Delphi自带的例子

Answer 4

是我没说清，还是理解有问题？
不是链接下一WEB页，而是弹出一个新程序的FORM窗体（注意：这个新程序的FORM窗体不是WEB页，而是一个典型的DELPHI窗体）

Answer 5

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
var
  frm: TForm2;
begin
  frm := Tform2.Create(Self);
  ppDisp := frm.WebBrowser1.ControlInterface;
  frm.Show;
end;

Answer 6

VB实现的方法，看是否对你有用：Private Sub Command1_Click()
    '浏览任何一个可以弹出菜单的窗口，下面的窗口将弹出窗口，地址为
    'http://www.ap.dell.com/html/ap/popup/cn/zh/cnbsd.htm
    WebBrowser1.Navigate "http://www.applevb.com"
End SubPrivate Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
    Dim frmWB As Form1    Set frmWB = New Form1    frmWB.WebBrowser1.RegisterAsBrowser = True    Set ppDisp = frmWB.WebBrowser1.Object
    frmWB.Visible = True
End Sub