使用RAD Studio（Delphi）v10.2.1（东京版本1）进行开发 在Windows 10“创作者更新”64位，但32位开发。
该应用程序是具有多个后台线程的VCL，每个线程使用Indy TidHTTP来获取网络资源。主线程和后台线程之间的同步使用消息队列（PostThreadMessage调用）实现。这很复杂，在这里提供直接代码将是困难和混乱的，所以我开始用口头描述。
应该发生什么：打开一个包含外部资源链接的文件，生成HTTP请求并将其发送到后台处理，然后等待应用程序消息队列上的传入消息，说明资源已下载。应用程序消息在分配给TApplication.OnMessage的事件代码中匹配（我怀疑，这是我的问题所在。）
有效。一切都顺利进行。但是如果我打开一个TSaveDialog - 即使我取消了对话而不是实际做任何事情 - 那么应用程序消息队列中的消息就会丢失。
通过编写日志消息的过程（不可能直接调试，因为这会扰乱导致问题所需的时间）我已经知道后台线程确实发布消息（并从PostThreadMessage获得肯定响应） ，但它们从未出现在我的TApplication.OnMessage事件代码中。
我已经看到各种库中的一些偷偷摸摸的代码将建立自己的PeekMessage / TranslateMessage / DispatchMessage循环，但并非所有人都记得检查是否存在TApplication.OnMessage事件。但我刚刚搜索了VCL代码以及我正在使用的十几个第三方库，并且没有发现任何这种情况会在这种情况下受到影响（据我所知）。
注意：我使用的是madExcept，Indy，FastReport，AddictSpell，SynEdit，VclStyleUtils（在其他一些不太知名的库中）
注意2：我想知道它是否与Delphi 10.2.1或Windows 10 Creator的更新有关，因为我也看到了一些其他奇怪的行为（第一个例外的长延迟或第一个TOpenDialog - 但仅限于某些应用程序）肯定不会发生在10.1（我没有使用10.2.0）。 ......但这可能（可能是）不同的东西。
所以我的问题是：我能做些什么呢？
有关如何查找/验证是否有其他代码窃取应用程序消息的任何建议？除了PeekMessage之外我还应该搜索的其他内容吗？
是否有其他方法可以拦截可能让我避免此问题的应用程序消息队列消息？
如果没有更好的选项显示自己，我可能不得不放弃使用应用程序线程消息并实现我自己的消息/同步系统，在其他时间让其他人工作得非常好之后我宁愿不做。
答案 0 :(得分：7)
你提到PostThreadMessage。不要再犹豫了。你不能使用它，除非你控制所有可能引发线程消息的消息循环，而你不会。模态文件对话框消息循环不受控制。它将拉出用于不同消息循环的线程消息，而不知道如何处理它们。
解决方案很简单。将消息发布到窗口而不是线程。这样，所有理智的消息循环（模态文件对话框的消息循环都是理智的）将把消息分派到预期的收件人窗口。
在Delphi术语中，这将涉及使用AllocateHWnd或类似内容来创建一个隐藏窗口来接收消息。
Raymond Chen在这里讨论了这个主题：Why do messages posted by PostThreadMessage disappear?