关闭浏览器如何自动释放ACTIVEFORM?(50分)

S

sunyb

Unregistered / Unconfirmed
GUEST, unregistred user!
或者控制浏览器无法直接关闭,只有用ACTIVEFORM上的关闭按钮,在关闭ACTIVEFORM时自动关闭浏览器
 
Onclose中DestroyObject()
 
请具体些好吗?
 
这应该是浏览器的工作吧,是自动的吧。
我在试MSAgent的时候,浏览器页面切换后,MSAgent自动关闭了。
 
###在FormDestroy事件中处理。(直接关闭IE石将激活该事件)###
具体做法如下:
关闭ACTIVEFORM时用FreeAndNil(obj)函数释放资源。(CloseQuery事件中)
FormDestroy事件中:写如下代码if obj<>nil then obj.free;等等。
Ok?
 
对于一些意外,这种方法好像不管用啊。
我经常会遇到无法关闭的情况
 
关闭IE时根本不响应activeform的formdestroy
 
怎么解决?
 
关闭IE或转换页面时,ActiveX控件自动释放,而且以它为容器的VCL部件同时Destroy,
但ActiveForm的OnDestroy事件不能捕捉,其它VCL的OnDestroy可以捕捉。

另外,网页中的ActiveX可以关闭IE,但不能不让IE的关闭。
如果确实需要,可以考虑编写让IE没有标题栏的网页来实现。
 
自定义这么一个函数
destructor destroy;override;

函数的具体代码;
destructor TActiveForm1.destroy
begin
//在这里关闭程序中使用的所有的midas连接,和midas的cliedataet;
inherited;
end;

这个可是我在宝兰和微软的网页上找了很久,问了很过人才解决的
你们真的好幸福。
 
blackbook,到底要怎么做呀?
偶用你的方法做了
在destory函数里设断电
根本没进去呀
有代码吗,给偶看看
 
不可能吧 这个函数 不是直接activeform的ondestroy函数 而是 重载 destroy函数。
不可能这点都不懂啊。

上面的代码已经太明白了。 你现在 public下面 自定义还数 destructor destroy;override;
然后再写函数代码:

destructor TActiveForm1.destroy
begin
//在这里关闭程序中使用的所有的midas连接,和midas的cliedataet;
showmessage('exit ,good');
inherited
end;

这个事件ActiveForm1退出时候就激活 所以你可以在里面处理你的一些资源释放的语句

这么明白了 怎么还是不懂啊。 已经全部写出来了。。

 
偶就是这么写的,问题就是。。。。不起作用
 
我都用了一两年的时间了, 呵呵呵呵
既然你说不起作用 那我也没有办法了 IE不能自动释放activeForm的资源,所以自由重载
还数ondestroy来捕获destroy事件 既然你说不起作用 那没有办法了。你可以喊网上的其他朋友
帮你测试一下。

 
哇 真的行也 刚才我按照blackbook说得去做 果真是的 困扰很久的问题终于解决了
谢谢
 
谢谢blackbook,是可以的
该死的delphi5有问题
偶关闭掉,然后重新编译了一下,端点就进去了
万分感谢呀

偶这里还有个问题,就是网页的参数传进去是在activexform.oncreate以后的
但是偶在oncreate里就需要用到这个参数,怎么办呢
 
呵呵呵呵 你这50分可真的很难挣阿,你首先要了解active的具体的工作情况:
oncreate是在创建active的时候的事件,而传参数等的时候对其端口事件的相应,也就是
创建在先(只有一次), 而对一个参数设置一次 那么就要调用一次参数事件(当然只有创建好了
才能接受参数的)。 你可以这样做。参数改动频繁的话,你可以把 oncreate里面完成的内容
在接受参数的函数里面去完成。 如果不频繁的话 你可以用一个timer。在timer事件里面去完成 设置timer 的时间
尽量的短一点。这样 用户在使用的时候才感觉不出来。大部分事件我用的就是timer 。代替了
平时oncreat里面的操作。
喂 不会还有其它的问题吧!!!
 
谢谢拉
偶想也就做定时器了

这个贴的楼主不是偶呀,偶怎么给你分呢
 

我的天啊 哇赛,聪明阿 害得我白费半天力气 呵呵呵呵呵呵
哎呀 我得分找谁要阿!!!! 这个世界太不公平了。太不公平了
算了 便宜你了 呵呵呵呵呵呵
 

Similar threads

S
回复
0
查看
626
SUNSTONE的Delphi笔记
S
S
回复
0
查看
706
SUNSTONE的Delphi笔记
S
D
回复
0
查看
826
DelphiTeacher的专栏
D
D
回复
0
查看
798
DelphiTeacher的专栏
D
D
回复
0
查看
874
DelphiTeacher的专栏
D
顶部