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

alang

你这个 EditForm  变量是在哪里定义的？

Coordinator

就是 目录树的点击事件上 难道不行？
procedure TShowForm.TreeView1Click(Sender: TObject);
var
  EditForm: XYDAGL_FUNC.TMAINFORM;
begin
  if TreeView1.Selected.SelectedIndex = 31 then
  begin
    if not Assigned(EditForm) then
    begin
      ShowTab;
      EditForm := XYDAGL_FUNC.TMAINFORM.Create(Self.Context);
      try
        EditForm.Show;
        EditForm.Parent := TabSheet;
      finally
        if EditForm.CloseSign = 1 then
        begin
          EditForm.Free;
          EditForm := nil;
        end;
      end;
    end;
  end;
end;

alang

变量定义在过程中，这个过程执行完就释放了，当然第二次执行就又空了

Coordinator

恩 好了  谢谢了