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

Question

初学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的源代码，希望也给予赐教。可以发到[email protected]这个信箱。谢谢了

Answer 1

你的代码不全！WebNewWindow
WebTitleChange
WebCommandStateChagne
WebStatusChange都是自定义的过程（函数）gne-----------要不是变量，要不是函数================================================================
　　　　　◆◆◆ CSDN查询助手，查询方便快捷◆◆◆ 下载地址：  
　http://CoolSlob.ifood1.com/Download/CSDNFinder.exe  
　http://CoolSlob.8u8.com/Download/Tools/CSDNFinder.Slob[更名为.exe即可]  

Answer 2

自己写把！！其实这样已经很简单了，你只要自己加入几个函数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即可]