关于delphi中webbrowers应用问题
小弟最近做一个语音聊天室的窗体框架，其中用了RZpagecontrol，和webborwers实现了动态添加的多标签
webborwers中就是网页，网页在服务器挂好了，网页中有ocx控件主要实现语音、视频等，现在遇到问题就是我点进一个聊天室房间，声音视频都没问题，关闭RZpagecontrol的tabsheet标签页，该聊天室内语音已然活动，我还是能听到聊天室里面的人聊天和唱歌，已经困扰我一个星期了，感觉是因为聊天室网页ocx控件的问题，关闭tabsheet释放webborwers后 聊天室网页控件已然运行 这个怎么办啊，请高人指点~！
[解决办法]
关闭前，先自动替webbrowser加载一个空白页面
[解决办法]
关闭改进了一下
procedure TFrmMain.RzPageControl1Close(Sender: TObject;
var AllowClose: Boolean);
var
lsIndex:Integer;
begin
lsIndex:=RzPageControl1.ActivePageIndex;
WB[lsIndex].Navigate('about:blank');
(RzPageControl1.ActivePage.Controls[0] as TWebBrowser).Free;
RzPageControl1.ActivePage.Free;
if lsIndex>RzPageControl1.PageCount-1 then
lsIndex:=RzPageControl1.PageCount-1;
RzPageControl1.ActivePageIndex:=lsIndex;
AllowClose := RzPageControl1.ActivePage.Caption <> '网聊娱乐大厅';
end;
还是不行 依然有声音，winfrom下没问题，delphi就不行，弹窗没问题，多标签就不行 我就郁闷了
[解决办法]
我刚学delphi一个星期 本以为只是给网页搭个框架 看起来像客户端而已 为什么关闭pagecontrol却这么麻烦呢
[解决办法]
//使用你提供的url需要做什么设置才能出声音?
//--------------------------------------
//TWebBrowser 加载了百度音乐, 可以正常关闭
'http://play.baidu.com/?__m=mboxCtrl.playSong&__a=33847306&__o=/song/33847306_playBtn#loaded'
//--------------------------------------
//关闭标签的代码
procedure TForm11.btnCloseTabClick(Sender: TObject);
var
i : integer;
begin
for i := 0 to pgc1.ActivePage.ComponentCount - 1 do
begin
if pgc1.ActivePage.Components[i] is TWebBrowser then
begin
TWebBrowser(pgc1.ActivePage.Components[i]).Navigate('about:blank');
TWebBrowser(pgc1.ActivePage.Components[i]).Free;
end;
end;
pgc1.ActivePage.free;
end;
