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

eivgtgni 于 2023-04-11 发布在其他

关注(0)|答案(2)|浏览(205)

我正在尝试更改 Delphi Firemonkey XE 7中组合框的字体大小。该应用程序将在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查看所述问题的图片。
提前感谢！莱亚

delphi

来源：https://stackoverflow.com/questions/31556405/how-do-i-change-the-font-size-of-the-drop-down-menu-of-a-combobox-in-delphi-fire

2条答案

按热度按时间

nhhxz33t1#

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

赞(0）回复(0）举报 2023-04-11

uemypmqf2#

Procedure StyleComboBoxItems(ComboBox:TComboBox; Family:string; Size:Single);
var
  Item : TListBoxItem;
  i : Integer;
begin
  for i := 0 to ComboBox.Count-1 do begin
    Item := ComboBox.ListItems[i];
    Item.Font.Family := Family; //'Arial';
    Item.Font.Size := Size; //20;
    // Item.FontColor := TAlphaColorRec.Red;
    Item.StyledSettings := Item.StyledSettings - [TStyledSetting.Family,TStyledSetting.Size,TStyledSetting.FontColor];
    // Item.Text := '*'+Item.Text;
  end;
end;

//call like StyleComboBoxItems(cbbXYZ,'Segoe UI',10.0);
//remember to call it everytime you change the cbb list by clearing, adding, deleting etc.

作者：JAN BLOMQVIST

赞(0）回复(0）举报 2023-04-11

我来回答

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

2条答案

相关问题

热门标签

最新问答