delphi - 如何在 Delphi FMX 中拦截双击标题栏操作？

Question

Delphi 使用 FMX 框架时，是否可以拦截双击标题栏的操作。

使用 VCL 时，可以通过拦截消息的方式实现。FMX 好像不支持 Windows 的消息机制。
请问，有什么实现办法？

procedure OverrideWMSysCommand(var AMessage: TWMSysCommand); message WM_SysCommand;

procedure TForm1.OverrideWMSysCommand(var AMessage: TWMSysCommand);
begin
  case AMessage.CmdType of
    61730: // 窗口最大化的情况下双击标题栏
      exit;
  else
    inherited;
  end;
end;

上述是 VCL 使用的方法，验证通过，但在 FMX 中无效。

Answer 1

在 Delphi FMX 框架中，由于它并不直接基于 Windows 消息机制，因此像 VCL 中通过拦截 WM_SysCommand 这样的方法不再适用。不过，你可以通过一些其他手段来模拟或实现类似的功能。

答案：

在 Delphi FMX 中，没有直接的方法来拦截双击标题栏的操作，因为 FMX 旨在跨平台工作，并且不依赖于特定平台的消息机制。然而，你可以通过一些间接的方法来实现类似的功能，比如使用定时器（Timer）和鼠标事件（Mouse Events）来检测双击事件，但这需要对用户的操作进行较为复杂的跟踪和判断。

一个可能的解决方案是，在表单上添加一个透明的覆盖层，这个覆盖层可以捕获鼠标事件，然后通过检测这些事件来模拟双击标题栏的行为。不过，这种方法并不完美，因为它依赖于用户与表单交互的方式，并且可能会影响用户体验。

简而言之，在 FMX 中没有直接的方法来拦截双击标题栏的操作，因为这与 FMX 的跨平台设计理念相悖。如果确实需要这样的功能，可能需要考虑使用平台特定的代码（如 Windows API 调用），但这将牺牲 FMX 的跨平台兼容性。

注意： 在进行此类操作时，请确保你了解并接受可能带来的平台依赖性和用户体验影响。