“无法创建表单。当前没有活动的 MDI 表单”错误

Question

我有一个 MDI 主（父）窗体和一个 MDI 子窗体。我在运行时像这样创建孩子：

VAR
   FrmDereplic: TFrmDereplic;

procedure TMainFrm.Button2Click(Sender: TObject);
begin
 FrmDereplic:= TFrmDereplic.Create(MainFrm);
 FrmDereplic.Show;
end;

重现错误的步骤：
我启动应用程序，按按钮创建子项，按主（父）表单上的“x”按钮关闭应用程序，我收到“无法创建表单。当前没有 MDI 表单处于活动状态”错误。

出现错误的行在子窗体中：

procedure TFrmDereplic.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Action:= caFree;
end;

procedure TFrmDereplic.FormDestroy(Sender: TObject);
VAR MyIniFile: TCubicIniFile;
begin
 MyIniFile:= TCubicIniFile.Create(AppINIFile);
 TRY
  with MyIniFile DO
  begin
   if WindowState<> wsMaximized then
    begin
     // save form's screen pos
     ...
    end;
   WriteInteger  ('Dereplicator', 'fltExtensions', fltExtensions.ItemIndex);  <----- HERE
 FINALLY
  FreeAndNil(MyIniFile);
 END;
end;

我将许多表单的属性（和其他控件的属性）保存到 INI 文件中。但只有当我尝试保存 fltExtensions.ItemIndex （这是一个 TFilterComboBox）时它才会失败。如果我评论那条线，它就完美了。

知道为什么当我实际关闭应用程序时它会尝试创建一个表单?????????

Answer 1

读取fltExtensions.ItemIndex属性时出现错误，因为它要求fltExtensions有一个HWND，这要求它的父TFrmDereplic表单有一个HWND，这要求项目的MainForm有一个HWND。但应用处于关闭状态，MainForm 无法再分配其 HWND，因此 TFrmDereplic 在无法为自己获取 HWND 时引发异常。

将您的 INI 数据保存在表单的 OnDestroy 事件中为时已晚。您需要改为 OnClose 事件。

Answer 2

我查看了一些网站，发现了问题。看起来最好将所有者设置为应用程序，而不是主窗体。 Remy Lebeau 认为真正的问题在于子窗体的 OnDestroy。保存过滤器的窗口没有有效句柄，然后调用 OnDestroy。因此，更改销毁顺序使 TFrmDereplic.OnDestroy 有机会正确执行。

所以，这里是解决方案：

解决方案

FrmDereplic:= TFrmDereplic.Create(Application);

或

不要将表单的属性保存在 销毁

第二个需要几行额外的代码，因为 OnClose 甚至不总是被调用。 这是从 Delphi HELP 中提取的：

注意：当应用程序关闭时 下来，主窗体收到一个 OnClose 事件，但任何子窗体都不会收到 OnClose 事件。

如果使用 Application.Terminate，则不会调用 onCloseQuery 和 onClose。 Halt 也一样（但是……这太极端了，对吧？）。

Answer 3

如果您在问题中提供的代码是真实的，那么我猜错误就在这一行：

 FrmDereplic:= TFrmDereplic.Create(TMainFrm);

我从未尝试过，我不确定编译器是否真的购买它（现在无法测试），但您正试图将一个类设置为 MDI 子窗体的所有者。而不是你应该这样做

FrmDereplic:= TFrmDereplic.Create(Application);

或

FrmDereplic:= TFrmDereplic.Create(self);

第一个选项将应用程序设置为 MDI 子窗体的所有者，而第二个选项将 MDI 主窗体的实例设置为所有者。

希望对您有所帮助。 :-)