高分请教一个简单的问题!

[jericho3164]

我在写浏览器，我为了实现屏蔽黑名单的功能，而这样做：
procedure TForm1.EmbeddedWB1WindowClosing(Sender: TObject;IsChildWindow: WordBool; var Cancel: WordBool);
begin
//if something is true then do
(TControl((Sender as TEmbeddedWB)).Parent as TTabSheet).PageControl:=nil;
end;

这样做是在判断访问的网址是黑名单中的后， 就自动释放掉那个窗口。可是这个办法在98下会出现“未指定的错误”，在2000/XP下能正常关闭窗口，WinMe没有试过。不知道有什么办法？

[jericho3164]

不可以这样,这样做连XP都会出错!

[hujianlinsoft]

UP!
正在学ing......

[wengj]

(TControl((Sender as TEmbeddedWB)).Parent as TTabSheet).Release;就搞定

[Drate]

这个问题无从下手!

我感觉好像不简单呀!

看来我真的是笨了!

只有帮你UP一下!

顺便做个MARK!~

[alphax]

(TControl((Sender as TEmbeddedWB)).Parent as TTabSheet).Free;
不可以吗？

[jericho3164]

你确定,吗?

[SilveryFox]

加入自定义中断异常处理

[befree]

.free吧
不要=nil

[jericho3164]

free早就试过了,效果比=nil要差！
To wengj(六月雪)我没有找到
(TControl((Sender as TEmbeddedWB)).Parent as TTabSheet).Release;
只找到(TControl((Sender as TEmbeddedWB)).Parent as TTabSheet).FreeOnRelease;但是也不能解决！

[ehom]

(Sender as TEmbeddedWB).Navigate('about:blank');
(Sender as TEmbeddedWB).Free;
((Sender as TEmbeddedWB).Parent as TTabSheet).Free;

[ehom]

应该是多页面浏览器吧?
还要判断PageControl.PageCount是否大于1!

[ehom]

哦?TEmbeddedWB?

改下:

TControl(Sender as TEmbeddedWB).Navigate('about:blank');
TControl(Sender as TEmbeddedWB).Free;
(TControl(Sender as TEmbeddedWB).Parent as TTabSheet).Free;

[jericho3164]

你确定？