type
TFormArray = array [0..4096] of TWebBForm
//only save a pointer, not TForm self;
var lastForm:integer;
var webspool:TFormArray;
TWebBForm = ... //自己用Delphi设计好你需要的窗口
//初始化
LastForm:=0;
//然后每次调用的时候
inc(LastForm);
webspool[LastForm]:=TWebBForm.Create(self);
webspool[LastForm].webbrowser1.navigate ... //与通常用法相同
//主Form的OnClose的时候:
for i:=1 to lastform do
begin
try
webspool.webbrowser1.stop
//停止流览, 具体函数查一下help
Webspool.close;
except
end;
end;
大体就是这样, 如果想做得好些, 还可以在创建TWebBForm的时候将webspool中的
index一起传进取, 而TWebBForm关闭的时候将webspool[index]:=nil;
然后在主form关闭的时候判断一下, 创建twebbform的时候在webspool中先从头开始
找一个空位, 以利于空间的使用.
webspool也可以改成链表形式的.