谁见过这样的网页(200分)

  • 主题发起人 主题发起人 李崇文
  • 开始时间 开始时间

李崇文

Unregistered / Unconfirmed
GUEST, unregistred user!
进入Sports.sina.com.cn网址后会新开两个IE窗口,一个是广告窗口,能正常显示;
另一个窗口等一段时间也自动弹出,但立刻自动关闭或者只能在任务栏中看到却无法
最大化.类是这种页面的,在Webbrowser中出现了一个奇怪的现象:
我用Webbrowser写了一个小浏览器,当有新页面弹出时便开一个新的Webbrowser显示
新页面,现在我导航Sports.sina.com.cn,将弹出两个新的Webbrowser浏览窗体,第一个
窗体能正常显示,但开第二个Webbrowser浏览窗体时,天啦,窗体上的Webbrowser不异而飞
了,不知道Webbrowser跑到哪去了,只留下窗体背景灰灰的一片.我调试发现Webbrowser
存在,并且它的Parent=新窗体,它的Visible=True,它的Align =alClient,但就是看不到.
请各位大虾给我出出招,怎么解决这个问题,是不是Webbrowser自动关了,那我怎么让
他重新显示或禁止这类网页关闭我的Webbrowser,这类网页到底是怎么写的,
(注:考虑到动态产生Webbrowser有内存泄漏,所以设计期我在PageControl页面上就放了
几个Webbrowser,没有采用动态产生)
 
有点意思,关注
 
大家试一试,部分代码如下:
导航到新窗体事件
procedure TfrmHtml.Web0NewWindow2(Sender: TObject; var ppDisp: IDispatch;
var Cancel: WordBool);
var
AWeb : TWebbrowser;
begin
AWeb := nil;
AWeb := OpenNewWeb; //这个函数自己写吧
if AWeb <> nil then
ppDisp := AWeb.Application
else begin
Cancel := True;
ppDisp := nil;
end;
end;
 
[:D]给我分吧[:D]
直接导入TWebBrowser的ActiveX,改个名,比如TWebBrowserX,在其OnWindowClosing事件中
处理即可。把Cancel设为True。从新指定一下WebBrowser的Parent。
OK?试成功给分[:D]
 
avant果然高明,给你分了,接好!
也给maming一点鼓励分,请笑纳!
 
后退
顶部