在 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(form1.PageControl1.PageCount+1);
ntab[num].PageControl:=form1.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:=form1.WebNewWindow;
nweb[num].OnTitleChange:=form1.WebTitleChange;
nweb[num].Width:=form1.PageControl1.Width;
nweb[num].Height:=form1.PageControl1.Height-28;
ntab[num].InsertControl(nweb[num]);
nweb[num].OnCommandStateChange:=form1.WebCommandStateChange;
nweb[num].OnStatusTextChange:=form1.WebStatusTextChange;
if gne then
begin
form1.pagecontrol1.ActivePage.ImageIndex:=-1;
form1.PageControl1.ActivePage:=ntab[num];
form1.pagecontrol1.ActivePage.ImageIndex:=1;
end;
num:=num+1;
end;
