【搞定】如何判断一个动态生成的窗体已打开？**

Coordinator

EditForm := XYDAGL_FUNC.TMAINFORM.Create(Self.Context);
？？？？？？ 这里用什么判断阿？（在delphi 用过if not Assigned(EditForm) then  但在平台上不管用）
begin
  try
    EditForm.Show;
    EditForm.Parent := TabSheet;
  finally
    if EditForm.CloseSign = 1 then
      EditForm.Free;
  end;
end
else
    EditForm.Free;

alang

if not Assigned(EditForm) then  只是判断这个变量EditForm是否为空
Assigned(EditForm) 跟 EditForm<>nil 是等价的
并不是判断窗体是否打开的

alang

判断窗体打开应该是用窗体.visible

Coordinator

？？？？？？
begin
  EditForm := XYDAGL_FUNC.TMAINFORM.Create(Self.Context);
  try
    EditForm.Show;
    EditForm.Parent := TabSheet;
  finally
    if EditForm.CloseSign = 1 then
      EditForm.Free;
  end;
end
else
    EditForm.Free;

不好意思 应该是这样的 不能老创建 得看是否生成了窗体了再创建。 已经生成了窗体就不创建了

Coordinator

这样的话 生成窗体 之前 EditForm 还是空 用visible会出错

alang

if not Assigned(EditForm) then
begin
  EditForm := XYDAGL_FUNC.TMAINFORM.Create(Self.Context);
end;
  try
    EditForm.Show;
    EditForm.Parent := TabSheet;
  finally
    if EditForm.CloseSign = 1 then
    begin
      EditForm.Free;
          EditForm := nil;
   end
  end;
end
else
    EditForm.Free;

alang

如果Free之后，没有:=nil 这个变量还是有值，但是再次调用就会出问题了，一定要:=nil

Coordinator

还是不行啊 我测了 无论有没有EditForm := nil; EditForm 在开始的是都是 “空对象”

alang

当然了，你第一次执行，这个变量还没有赋值，当然是空值了

Coordinator

是阿 第2次再点 还是 空对象 这个实现的目的就是为了只能运行一次， 就好象x3 平台的点目录树运行功能一样 每个功能只能出现一个