show窗体释放问题

zykj

在主窗体中用show打开一个非模式窗体

begin
     lDayNoteForm:=TDD_YXRZJL.Create(Context);
     try
            DataGrid2.Enabled:=false;
            lDayNoteForm.Show;
     finally
             end;
end;

在TDD_YXRZJL窗体释放自己：
procedure TDD_YXRZJL.BizFormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
     self.free;
end;

procedure TDD_YXRZJL.BizFormDestroy(Sender: TObject);
begin
     self:=nil;
end;

主窗体的onclose事件，判断非模式窗体是否存在：
if  (lDayNoteForm<>nil) then
    begin
     lDayNoteForm.visible:=false;
     lDayNoteForm.parent:=nil;
     lDayNoteForm.free;
     lDayNoteForm:=nil;
  
现在如果非模式窗体关闭后，再关闭主窗体，lDayNoteForm<>nil为true，执行后面的语句就会报错。
在主窗体关闭时要怎么判断非模式窗体是否关闭了？

zfang

你把下面的过程去掉，创建和释放仅仅在主窗体中做。
------在TDD_YXRZJL窗体释放自己：

zykj

主窗体要判断是否非模式窗体在打开状态的话要怎么做

zfang

楼主，你要做这个判断是基于什么需要呢？

zykj

如果非模式窗体处在打开状态，主窗体的某个控件要不可用

zfang

哦，那你可以定义一个变量来记录，弹出的窗体时show还是showmodal，或者show的时候直接让那个按钮失效。

zykj

关闭非模式窗体的时候这个按钮要重新可用，这个要怎么写

lixy

在被关闭窗体里面要操作按钮所在窗体。

zykj

具体怎么写啊？

jiap1623

谁创建谁释放