delphi - Firemonkey - 消息处理

Question

我目前正在尝试开发一个基于 Firemonkey 的项目。我使用 Firemonkey 是因为它的 UI 功能，因为该项目由许多较小的应用程序组成，每个应用程序都有 3D 方面。我目前仅使用 FMX 框架开发/部署到 Windows，但以后可能会跨平台。

我通过在后台构建 VCL Windows 应用程序来执行非常具体的操作，然后构建 FMX 前端，解决了遇到的大多数问题。但是，这只适用于您只想执行应用程序来执行其设计目的的操作，因此可以使用参数执行应用程序。在其中一个应用程序中，我发现需要使用消息(或类似的东西)。例如，在我的 FMX 应用程序中，如果我单击“button1”，我希望它向后台 VCL 应用程序发送消息以执行“action1”，而不是使用参数执行它。

一个很好的例子是在后台应用程序中使用 VCL TMediaPlayer，前端 FMX 应用程序用于显示信息并提供播放、暂停等控制。本质上变成了一个具有VCL能力的FMX UI。

到目前为止，我还无法找到任何关于如何使用 Firemonkey 处理消息的信息(例如，在 VCL 中，它们是通过“SendMessage”或“PostMessage”或类似的东西完成的)，要么通过本地帮助文件，要么通过广泛的谷歌搜索。我发现的所有内容都与电子邮件有关(大概是因为我的大多数搜索词中都有“消息”一词)。

任何人都可以为我指明如何使用 Firemonkey/FMX 处理消息的正确方向吗？

问候，斯科特·普理查德

Answer 1

我的理解是 Firemonkey 不是基于传统窗口的，因此向 Firemonkey 控件发送窗口消息通常不是一个选项。尽管某些控件确实使用窗口(最值得注意的是 TCommonCustomForm)，因此您可以使用 FMX.Platform.Win 中的 FmxHandleToHWND() 函数需要时从 TFmxHandle 中提取 HWND 的单元。我不知道如何在 FMX 控件中接收和自定义处理窗口消息(如果可能的话)。

Windows 下的 Firemonkey 可以访问 Win32 API，因此应该没有什么可以阻止您向其他窗口控件(例如 VCL UI)发送窗口消息。在 uses 子句中包含 Winapi.Windows 单元以访问 Win32 API 函数，就像在 VCL 应用程序中一样。

更新:由于 FireMonkey 不会公开对发送到表单窗口的消息的访问，因此您必须手动子类化窗口，以便在 FireMonkey 看到消息之前接收消息。您可以重写 Form 的 CreateHandle() 方法，先调用 inherited 方法创建窗口，然后使用 FmxHandleToHWND() 获取 HWND 您可以对其进行子类化。请务必先重写 DestroyHandle() 方法以删除子类，然后再调用 inherited 释放 HWND。