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 中无效。