如何将自定义FMX样式属性与Delphi默认样式进行对比？

一、提取默认FMX样式用于对比排查 #

默认FMX样式内嵌在库中无法直接打开，可通过代码导出为可编辑的.fsf文件：

1. 新建Delphi 11.2项目，添加一个按钮
2. 在按钮点击事件中加入以下代码：

procedure TForm1.Button1Click(Sender: TObject);
var
  DefaultStyle: TStyleBook;
begin
  DefaultStyle := TStyleBook.Create(nil);
  try
    // 加载系统默认Windows样式
    TStyleManager.LoadFromResource(HInstance, 'Windows', RT_RCDATA, DefaultStyle.StyleData);
    // 保存到本地文件
    DefaultStyle.StyleData.SaveToFile('DefaultWindowsStyle.fsf');
    ShowMessage('默认样式已导出至程序运行目录');
  finally
    DefaultStyle.Free;
  end;
end;

3. 编译运行后点击按钮，得到默认样式文件，即可用Bitmap Style Designer打开与深色样式对比参数。

二、解决窗体边框变化导致控件偏移问题 #

1. 打开导出的默认样式，找到TForm节点，记录以下关键参数：
   • BorderStyle：默认值为bsSingle
   • WindowPadding：四个方向的内边距数值
   • ClientRect：窗体客户区基准尺寸
2. 打开你的深色样式，将TForm的上述参数修改为与默认样式完全一致
3. 切换样式后，手动调用窗体布局刷新方法：

TStyleManager.SetStyle('你的深色样式名称');
Form1.UpdateLayout;
Form1.Repaint;

三、解决主菜单交互异常问题 #

针对TMainMenu无法自动切换的问题： #

1. 查看默认样式中TMenuItem的触发器设置：默认包含IsMouseOver、IsSelected等状态触发器，关联了悬停/选中时的颜色与布局变化
2. 检查深色样式中TMenuItem的配置：
   • 在Bitmap Style Designer中找到TMenuItem节点
   • 添加IsMouseOver触发器，设置悬停时的背景色、文字色，确保绑定MouseEnter/MouseLeave事件
   • 确认HitTest属性设为True，保证菜单能响应鼠标事件

针对TMenuBar表现相反的问题： #

1. 检查深色样式中TMenuBar的StyleLookup属性是否与默认样式一致，避免样式名称冲突
2. 对比默认样式中TMenuBarItem的状态触发器，修正深色样式中对应的参数，确保悬停、选中状态逻辑正常

内容的提问来源于stack exchange，提问作者XylemFlow