在 FMX 下的 TComboBox 下拉菜单字型修改有二种方法:
- 使用 Style,需先设定好 Style 后,再指定预设项的 Style,方法如下:
= Combobox2.ListBox.DefaultItemStyles.ItemStyle := ;
- 使用代码修改字型,方法如下:
=</span><span style="color: #0000ff;">for</span> i:=<span style="color: #800080;">0</span> <span style="color: #0000ff;">to</span> ComboBox1.Count - <span style="color: #800080;">1</span> <span style="color: #0000ff;">do</span> <span style="color: #0000ff;">begin</span><span style="color: #000000;"> ComboBox1.ListBox.ListItems[i].StyledSettings :</span>= ComboBox1.ListBox.ListItems[i].StyledSettings -<span style="color: #000000;"> [TStyledSetting.Family,TStyledSetting.Size,TStyledSetting.FontColor]; ComboBox1.ListBox.ListItems[i].TextSettings.Font.Size :</span>= <span style="color: #800080;">20</span><span style="color: #000000;">; </span><span style="color: #0000ff;">case</span> i <span style="color: #0000ff;">mod</span> <span style="color: #800080;">3</span> <span style="color: #0000ff;">of</span> <span style="color: #800080;">0</span>: ComboBox1.ListBox.ListItems[i].TextSettings.FontColor :=<span style="color: #000000;"> claRed; </span><span style="color: #800080;">1</span>: ComboBox1.ListBox.ListItems[i].TextSettings.FontColor :=<span style="color: #000000;"> claBlue; </span><span style="color: #800080;">2</span>: ComboBox1.ListBox.ListItems[i].TextSettings.FontColor :=<span style="color: #000000;"> claGreen; </span><span style="color: #0000ff;">end</span><span style="color: #000000;">; ComboBox1.ListBox.ListItems[i].TextSettings.Font.Family :</span>= <span style="color: #800000;">'</span><span style="color: #800000;">字型名称</span><span style="color: #800000;">'</span><span style="color: #000000;">; ComboBox1.ListBox.ListItems[i].Height :</span>= <span style="color: #800080;">30</span><span style="color: #000000;">; </span><span style="color: #0000ff;">end</span><span style="color: #000000;">;
<span style="color: #0000ff;">end;
效果示例: