偶找到的,也不知道好不好用,你看看!
procedure Tfrm_Explorer.wb_DataInfoNewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
begin
ppDisp :=web_New.DefaultInterface;
end;
其中,web_New是另一个TWebBrowser控件。
procedure Tfrm_Explorer.wb_DataInfoNewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
begin
ppDisp :=web_New.DefaultInterface;
end;
其中,web_New是另一个TWebBrowser控件。
解决方案 »
- Formula One控件使用问题
- 关于TreeView的问题,请帮忙
- activex问题(期待高手,先送100分)
- 令人郁闷的FOR循环的delphi实现
- 高分求:用MODEN(调制解调器)实现自动通知和自动应答系统的编程技术! 欢迎探讨!分不够再开帖!!!
- 前所未有的简单问题,csdn上搜索不到的
- 如果想从后往前查符合条件的记录怎么做呢?
- 哪里有免费的建模工具下载?
- ADO连接有密码的ACCESS,提示错误。
- 简单问题,怎么才能把这个函数的返回值转换成字符串放在一edit1.text中。50分
- 请问,dbgrid中能不能实现将选中的某列直接通过拖动到其它记录的同名列中,还有就是如何下列表显示某列的值?谢谢
- 如何对表中的两条记录的字段求和或相除,并输出
var ppDisp: IDispatch; var Cancel: WordBool);
begin
ppDisp := WebBrowser2.ControlInterface;
end;
Delphi自带的例子
不是链接下一WEB页,而是弹出一个新程序的FORM窗体(注意:这个新程序的FORM窗体不是WEB页,而是一个典型的DELPHI窗体)
var ppDisp: IDispatch; var Cancel: WordBool);
var
frm: TForm2;
begin
frm := Tform2.Create(Self);
ppDisp := frm.WebBrowser1.ControlInterface;
frm.Show;
end;
'浏览任何一个可以弹出菜单的窗口,下面的窗口将弹出窗口,地址为
'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