高手请进：关于Twebbrowser构件关闭的Event(100分)

F

feiyun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-14

• #1

各位高手，
我用Twebbrowser构件作了一个简易的浏览器，在浏览有
onclick="window.close()"语句的网页的时候用户可以
在网页上直接关闭Twebbrowser构件，构件应该没有自动
释放的，visiable也是True,但是屏幕上就是不见Twebbrowser。
这是什么回事？
同时我找不到Twebbrowser构件关闭的event,请高手指教。
顺便说一下，onquit和onvisable时间没有触发

 

C

CathyEagle

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-14

• #2

我也没找到，不过我暂时用EmbeddedWB的OnTranslateURL实现了，
截获'window.close'字符串，自己控制是否关闭。

 

F

feiyun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-16

• #3

CathyEagle,我试过了，好像不行啊

 

U

unreal

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-16

• #4

放一个ApplicationEvents1

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if (Msg.message = WM_CLOSE) and (Msg.hwnd = WebBrowser1.Handle) then
PeekMessage(Msg,Msg.Hwnd,0,0,PM_REMOVE)//换成你要的
else
inherited;
end;

 

C

CathyEagle

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-16

• #5

我的方法只是权宜之计，决不是好方法，不知道你怎样做的，
不过我是成功了。
我看unreal的方法应该更好，虽然我没试过，但我感觉行得通。

 

F

feiyun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-16

• #6

搞定了，谢谢