高手请进!!!-------怎样检查某个对象是否没有被释放?

Question

if Assigned(WebBrowser1) then ...

Answer 1

我一般free后立即 := NIL;

Answer 2

可是这个free是用户的操作呀,怎样知道用户free了webbrowser1?就像westfly(西翔)　说的?我试试

Answer 3

可是遇到这样的情况怎么办呢?
procedure TForm1.SpeedButton1Click(Sender: TObject);begin
if edit1.text<>'' then
begin
panel1.Width:=1;
Show1.Checked:=true;
edit1.SelectAll;form1.webbrowser1.Navigate(edit1.text);
end;
end;
我怎么知道用户点了html作的'关闭',然后我的webbrowser1被free了,而且不是自动变成nilwebbrowser到底什么时候退出的,我怎么能知道呢?

Answer 4

大家关注一下！
用IE的时候就容易出现这种情况，因为IE是用户操作的，而IE呢不受我们自己的应用程序的控制，所以类似于关闭窗口这种情况，我们好像不知道是用户正常操作时关闭呢还是用户直接关闭IE或者关机之类造成的。不知有没有人知道如何分辨这种情形？

Answer 5

：　ai_daoluan(捣乱)　
说的对,这种情况下怎样办呢?