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

Question

我正在尝试在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查看所述问题的图片。

提前致谢！ LEA

Answer 1

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