模态动态窗体间导航时未使用窗体的内存释放问题

问题根源 #

你当前的代码逻辑会导致未激活窗体驻留内存，核心原因在于：
当在模态窗体的按钮事件中设置ModalResult := mrOk并立即调用OpenFormX时，新窗体的ShowModal会阻塞当前按钮事件的执行流程。旧窗体的finally块（负责释放窗体）必须等待新窗体的ShowModal结束、按钮事件执行完成后，才能进入执行环节。如果用户在多个窗体间反复导航，就会形成嵌套的调用栈，每个旧窗体都要等到后续所有窗体关闭后才能被释放，最终导致内存中堆积多个未使用的窗体实例。

解决方案 #

最优方案：通过ModalResult传递导航意图，在窗体释放后再打开新窗体 #

修改窗体打开逻辑，将导航决策从子窗体内部转移到窗体打开函数中，确保旧窗体先被释放，再创建新窗体。

1. 修改OpenFormX系列函数，捕获模态窗体返回的ModalResult，根据结果决定后续操作：

procedure OpenForm1;
var
  Res: TModalResult;
begin 
  frmForm1 := TfrmForm1.Create(Application);
  try
    Res := frmForm1.ShowModal;
  finally
    frmForm1.Free; // 先释放当前窗体，再处理后续导航
  end;
  // 根据返回的ModalResult决定打开哪个窗体或返回主菜单
  case Res of
    mrYes: OpenForm2;    // 用mrYes表示要打开Form2
    mrNo: OpenForm3;     // 用mrNo表示要打开Form3
    mrAbort: OpenForm4;  // 用mrAbort表示要打开Form4
    mrCancel: ;          // mrCancel表示返回主菜单，无需额外操作
  end;
end;

// OpenForm2/OpenForm3/OpenForm4的逻辑与OpenForm1完全一致，只需替换对应的窗体类
procedure OpenForm2;
var
  Res: TModalResult;
begin 
  frmForm2 := TfrmForm2.Create(Application);
  try
    Res := frmForm2.ShowModal;
  finally
    frmForm2.Free;
  end;
  case Res of
    mrYes: OpenForm1;
    mrNo: OpenForm3;
    mrAbort: OpenForm4;
    mrCancel: ;
  end;
end;

2. 修改子窗体按钮的点击事件，不再直接调用OpenFormX，而是设置对应的ModalResult：

// Form1中打开Form2的按钮事件
procedure TfrmForm1.btnOpenForm2Click(Sender: TObject);
begin
  ModalResult := mrYes; // 传递导航意图，不直接打开新窗体
end;

// Form1中返回主菜单的按钮事件
procedure TfrmForm1.btnBackToMainClick(Sender: TObject);
begin
  ModalResult := mrCancel;
end;

替代方案：使用异步调用延迟打开新窗体 #

如果必须在子窗体内部处理导航逻辑，可以通过PostMessage将打开新窗体的操作延迟到当前窗体释放后执行：

1. 定义一个自定义消息：

const
  UM_OPEN_FORM2 = WM_USER + 1;
  UM_OPEN_FORM3 = WM_USER + 2;
  // 其他窗体对应的自定义消息

2. 在子窗体中处理按钮事件：

procedure TfrmForm1.btnOpenForm2Click(Sender: TObject);
begin
  ModalResult := mrOk; // 关闭当前窗体
  PostMessage(Application.Handle, UM_OPEN_FORM2, 0, 0); // 异步触发打开新窗体
end;

3. 在主窗体或Application的消息处理中捕获自定义消息，执行打开窗体的操作：

procedure TfrmMain.WMOpenForm2(var Msg: TMessage);
begin
  OpenForm2;
end;

// 注册消息处理
initialization
  RegisterWindowMessage(UM_OPEN_FORM2);
  // 其他消息同理

这个方案虽然能解决内存问题，但代码复杂度更高，不如第一种方案直观易维护。

补充说明 #

返回主菜单时，无需额外调用frmMain.Show——当所有模态窗体都被释放后，主窗体会自动恢复激活状态。如果主窗体之前被隐藏，可在主菜单打开子窗体的代码中先隐藏自己，返回时无需手动显示。

内容的提问来源于stack exchange，提问作者Pierre Chassang