为什么我的程序在 OnCloseQuery 和 FormDestroy 事件之间挂起？

Question

我有一个中等复杂的程序，它使用了几个第三方组件，我在 Borland/Codegear/Embarcadero IDE 的多次迭代中维护了超过 20 年。最新的迭代（使用 Delphi 2010）有一个问题，该问题仅出现在某些用户的机器上，它在关闭时停止响应。如果用户右键单击任务栏图标并再次选择“关闭”，程序将关闭。

我试图在我的位置重现该问题，但没有成功。我已经实现了各种日志记录方案，并且可以看到执行在 FormCloseQuery 过程之后但在 FormDestroy 事件之前停止。

当用户启动关闭时，会执行多个表单和多个线程。

1. 我已检查我的线程是否正确终止。 （我在 OnCloseQuery 事件处理程序中关闭它们）
2. 只有主窗体有 OnCloseQuery 事件处理程序，我知道它以 CanClose = true 退出。
3. 我记录了打开表单的最终确定代码，但在用户右键单击任务栏图标并再次选择关闭之前，它们都不会执行。
4. 我检查了 SysUtils.DoneMonitorSupport 例程，直到用户再次选择关闭后它才会运行。

我创建了一个小调试程序，它注册一条 Windows 消息并显示来自相关应用程序的信息。这是我看到的：

Debug Message ID = 49681
7/28/2015 2:34:26 PM - MyApp initialized
7/28/2015 2:34:42 PM - Port opened COM3
7/28/2015 2:34:44 PM - Port opened COM5
7/28/2015 3:14:51 PM - Port closed COM3
7/28/2015 3:14:51 PM - Port closed COM5
7/28/2015 3:14:51 PM - MyApp closing (last line in MainForm.OnCloseQuery)
7/28/2015 3:14:51 PM - Configuration window destroy **stalls here**
7/28/2015 3:15:25 PM - Run Table destroy
7/28/2015 3:15:25 PM - Alert window destroy
7/28/2015 3:15:25 PM - Sample Table destroy
7/28/2015 3:15:25 PM - Debug window destroy
7/28/2015 3:15:25 PM - Main window destroy
7/28/2015 3:15:26 PM - Main window finalize

配置窗口创建并拥有多个子窗体。在配置窗口的 OnDestroy 代码中，这些代码被释放，但会调用 Application.ProcessMessages。 （早在 2000 年代初期就有一个问题，有时表单在被释放时会发送消息）这可能是问题吗？

Answer 1

在我的配置窗口的 F​​ormDestroy 事件处理程序中调用了 Application.ProcessMessages。在我把它拿出来之后，客户没有发现问题。