delphi - 样式化菜单栏项（Firemonkey）

Question

我似乎无法弄清楚如何更改 tmenuitem 对象的字体。我添加了一个菜单栏，并向其中添加了一个项目。我为菜单项创建了一个自定义样式。我可以更改背景颜色和笔触颜色等，但我不能更改文本部分的字体。如果我更改字体（大小或名称或其他任何内容），它会显示在样式编辑器中，但不会显示在表单设计器中或运行时。似乎字体以某种方式默认为某种东西。有没有其他人能够做到这一点？

Answer 1

FireMonkey 几乎会覆盖您为样式中的字体（字体、大小、样式）所做的任何设置。AFAIK 您想要进行的任何字体更改都必须在运行时完成。对于 TMenuItem，这意味着在创建菜单项后手动设置 Font 属性。

但是（我从来没有玩过这个）我看到人们说他们可以通过在创建组件后设置 StyleLookup 来更改字体。

您可能希望挂接到 OnApplyStyleLookup 事件以进行这些更新。