请教一个TWebBrowser的动态窗口的问题

[yishan]

初学TwenBrowser，想建一个动态WebBrowser，在网上看到一段代码，使用的是PageControl+WebBrowser

代码如下：

var
ntab:array of ttabsheet;
nweb:array of twebbrowser;
num:integer;

procedure newwin();
begin
setlength(ntab,num+1);
setlength(nweb,num+1);
//nhb[num]:=false;
//setlength(nhf,num+1);
//nhf[num]:=false;
ntab[num]:=ttabsheet.Create(nil);
//settab(frmChildWeb.PageControl1.PageCount+1);
ntab[num].PageControl:=frmChildWeb.PageControl1;
ntab[num].Name:='W'+inttostr(num);
ntab[num].Caption:=' ';
ntab[num].ImageIndex:=-1;
nweb[num]:=twebbrowser.Create(nil);
nweb[num].Navigate('about:blank');
nweb[num].Left:=0;
nweb[num].OnNewWindow2:=frmChildWeb.WebNewWindow;
nweb[num].OnTitleChange:=frmChildWeb.WebTitleChange;
nweb[num].Width:=frmChildWeb.PageControl1.Width;
nweb[num].Height:=frmChildWeb.PageControl1.Height-28;
ntab[num].InsertControl(nweb[num]);
nweb[num].OnCommandStateChange:=frmChildWeb.WebCommandStateChange;
nweb[num].OnStatusTextChange:=frmChildWeb.WebStatusTextChange;
if gne then
begin
frmChildWeb.pagecontrol1.ActivePage.ImageIndex:=-1;
frmChildWeb.PageControl1.ActivePage:=ntab[num];
frmChildWeb.pagecontrol1.ActivePage.ImageIndex:=1;
end;
num:=num+1;
end;

frmChildWeb是窗体名，它的出错如下：

[Error] dvbbs.pas(47): Undeclared identifier: 'WebNewWindow'
[Error] dvbbs.pas(48): Undeclared identifier: 'WebTitleChange'
[Error] dvbbs.pas(52): Undeclared identifier: 'WebCommandStateChange'
[Error] dvbbs.pas(53): Undeclared identifier: 'WebStatusTextChange'
[Error] dvbbs.pas(54): Undeclared identifier: 'gne'

frmChildWeb.WebNewWindow //这样的属性根本没有啊，为什么上面的代码要这样写？请各位大虾帮忙看看

如果有动态WebBrowser的源代码，希望也给予赐教。可以发到[e-mail]这个信箱。谢谢了

[日总是我哥]

你的代码不全！

WebNewWindow
WebTitleChange
WebCommandStateChagne
WebStatusChange都是自定义的过程（函数）

gne-----------要不是变量，要不是函数

================================================================
　　　　　◆◆◆ CSDN查询助手，查询方便快捷◆◆◆

下载地址：
　http://CoolSlob.ifood1.com/Download/CSDNFinder.exe
　http://CoolSlob.8u8.com/Download/Tools/CSDNFinder.Slob[更名为.exe即可]

[yishan]

我也知道，真是惨啊.....兄弟有没有这样类似的代码？

[日总是我哥]

自己写把！！其实这样已经很简单了，你只要自己加入几个函数

WebNewWindow<---------
WebTitleChange<------这里响应动态创建WebBrowserTitleChange事件，其它类推
WebCommandStateChagne
WebStatusChange都是自定义的过程（函数）

if gne then
begin
frmChildWeb.pagecontrol1.ActivePage.ImageIndex:=-1;<---这句应该可以省！
frmChildWeb.PageControl1.ActivePage:=ntab[num];<---设置刚建的那个为当前页
frmChildWeb.pagecontrol1.ActivePage.ImageIndex:=1;<--设置Image
end;

//对你的回复就到此,自己慢慢看吧

================================================================
　　　　　◆◆◆ CSDN查询助手，查询方便快捷◆◆◆

下载地址：
　http://CoolSlob.ifood1.com/Download/CSDNFinder.exe
　http://CoolSlob.8u8.com/Download/Tools/CSDNFinder.Slob[更名为.exe即可]

[jadesun]

up

[liubat]

我去试试！

[outer2000]

成功了，代码让大家看看？

[hongqi162]

我也想看看！

[e-mail]

[benvict]

这么简单的东西你们都有兴趣?