如何更改 Delphi Firemonkey XE7 中组合框下拉菜单的字体大小？答案

【问题标题】：How do I change the font size of the drop-down-menu of a combobox in Delphi Firemonkey XE7?如何更改 Delphi Firemonkey XE7 中组合框下拉菜单的字体大小？
【发布时间】：2015-10-11 22:21:13
【问题描述】：

我正在尝试更改 Delphi Firemonkey XE7 中组合框的字体大小。该应用程序将在 Windows 平板电脑上使用。到目前为止，它已经起作用，当“未打开”时组合框中显示的所选项目会更改字体大小，但是当我单击组合框并打开下拉菜单时，下拉菜单中的项目仍然有默认字体大小。有谁知道如何解决这个问题？

到目前为止的源代码：

for i := 0 to combobox1.Count - 1 do
begin
  combobox1.ListBox.ListItems[i].TextSettings.Font.Size := 20;
  combobox1.ListBox.ListItems[i].StyledSettings :=  combobox1.ListBox.ListItems[i].StyledSettings - [TStyledSetting.Size];
end;

点击here查看所描述问题的图片。

提前致谢！莉亚

【问题讨论】：

如果您在组合框上使用 Scale 属性，它将更改框项和下拉项的文本大小。
你有代码吗？我在互联网上读到的关于该属性的内容似乎只是缩放下拉菜单而不是字体大小，但我不知道这是否正确以及如何使用此属性：/

标签： delphi firemonkey delphi-xe7

【解决方案1】：

要在 ComboBox 中使用样式化的 ListBox 项，请设置 ComboBox.DropDownKind := TDropDownKind.Custom

【讨论】：

谢谢！那行得通。但是现在下拉项目文本周围的空间很小。我能以某种方式获得更大的利润或类似的东西吗？
设置 ComboBox.ItemHeight。我认为，最好为 ComboBox 和 ListBoxItem 创建自定义样式以集中管理属性