在 FMX 下的 TComboBox 下拉菜单字型修改有二种方法:
- uses FMX.Pickers;
- 使用 Style,需先设定好 Style 后,再指定预设项的 Style,方法如下:
procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
begin
ComboBox2.DropDownKind := TDropDownKind.Custom;
Combobox2.ListBox.DefaultItemStyles.ItemStyle := 'listboxitemstyle1';
end; - 使用代码修改字型,方法如下:
procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
begin
ComboBox1.DropDownKind := TDropDownKind.Custom; for i:= to ComboBox1.Count - do
begin
ComboBox1.ListBox.ListItems[i].StyledSettings := ComboBox1.ListBox.ListItems[i].StyledSettings - [TStyledSetting.Family, TStyledSetting.Size, TStyledSetting.FontColor];
ComboBox1.ListBox.ListItems[i].TextSettings.Font.Size := ;
case i mod of
: ComboBox1.ListBox.ListItems[i].TextSettings.FontColor := claRed;
: ComboBox1.ListBox.ListItems[i].TextSettings.FontColor := claBlue;
: ComboBox1.ListBox.ListItems[i].TextSettings.FontColor := claGreen;
end;
ComboBox1.ListBox.ListItems[i].TextSettings.Font.Family := '字型名称';
ComboBox1.ListBox.ListItems[i].Height := ;
end;
end;
效果示例: