FW : 判断已创建的窗体是否释放掉

我想判断已创建的窗体是否释放掉,若释放则重新创建
如何使得函数:assigned(Form1)的值为false呢??

当你的这个窗体没有创建或者释放调以后就是false的啊

procedure TFrmWarning.FormClose(Sender: TObject; var Action: TCloseAction);

begin
     Action := caFree
。。。

if not assigned(FrmWarning) then
      FrmWarning:=TFrmWarning.Create(FrmWarning);
但assigned(Form1)还是为真,请教?

FORM1不存在,那个值就是FALSE
如果想自己设,用BOOLEAN变量

在DESTROY中把 Form1:=nil就可以了。

//另外一种方法也可以判断一个窗体是否创建~~
begin
  if Assigned(Application.FindComponent('Form2')) then
    {  }
  else begin
    Form2 := TForm2.Create(Application);
  end;
  Form2.Show;
end;

procedure TFrmWarning.FormClose(Sender: TObject; var Action: TCloseAction);

begin
     Freeandnil(TFrmWarning);
//...

if not assigned(FrmWarning) then
      FrmWarning:=TFrmWarning.Create(FrmWarning);
ok^_^





posted on 2005-12-14 09:16 青蛙學堂 阅读(395) 评论(0)  编辑 收藏 引用 所属分类: 軟件布袋

只有注册用户登录后才能发表评论。
<2005年12月>
27282930123
45678910
11121314151617
18192021222324
25262728293031
1234567

导航

统计

常用链接

留言簿(7)

随笔分类

随笔档案

收藏夹

青蛙学堂

最新评论

阅读排行榜

评论排行榜