Firemonkey TComboBox 下拉菜单字型修改方法 (D10)

在 FMX 下的 TComboBox 下拉菜单字型修改有二种方法:

  1. 使用 Style,需先设定好 Style 后,再指定预设项的 Style,方法如下:
    = Combobox2.ListBox.DefaultItemStyles.ItemStyle := ;

  2. 使用代码修改字型,方法如下:
    = </span><span style="color: #0000ff;"&gt;for</span> i:=<span style="color: #800080;"&gt;0</span> <span style="color: #0000ff;"&gt;to</span> ComboBox1.Count - <span style="color: #800080;"&gt;1</span> <span style="color: #0000ff;"&gt;do</span> <span style="color: #0000ff;"&gt;begin</span><span style="color: #000000;"&gt; ComboBox1.ListBox.ListItems[i].StyledSettings :</span>= ComboBox1.ListBox.ListItems[i].StyledSettings -<span style="color: #000000;"&gt; [TStyledSetting.Family,TStyledSetting.Size,TStyledSetting.FontColor]; ComboBox1.ListBox.ListItems[i].TextSettings.Font.Size :</span>= <span style="color: #800080;"&gt;20</span><span style="color: #000000;"&gt;; </span><span style="color: #0000ff;"&gt;case</span> i <span style="color: #0000ff;"&gt;mod</span> <span style="color: #800080;"&gt;3</span> <span style="color: #0000ff;"&gt;of</span> <span style="color: #800080;"&gt;0</span>: ComboBox1.ListBox.ListItems[i].TextSettings.FontColor :=<span style="color: #000000;"&gt; claRed; </span><span style="color: #800080;"&gt;1</span>: ComboBox1.ListBox.ListItems[i].TextSettings.FontColor :=<span style="color: #000000;"&gt; claBlue; </span><span style="color: #800080;"&gt;2</span>: ComboBox1.ListBox.ListItems[i].TextSettings.FontColor :=<span style="color: #000000;"&gt; claGreen; </span><span style="color: #0000ff;"&gt;end</span><span style="color: #000000;"&gt;; ComboBox1.ListBox.ListItems[i].TextSettings.Font.Family :</span>= <span style="color: #800000;"&gt;'</span><span style="color: #800000;"&gt;字型名称</span><span style="color: #800000;"&gt;'</span><span style="color: #000000;"&gt;; ComboBox1.ListBox.ListItems[i].Height :</span>= <span style="color: #800080;"&gt;30</span><span style="color: #000000;"&gt;; </span><span style="color: #0000ff;"&gt;end</span><span style="color: #000000;"&gt;;

    <span style="color: #0000ff;">end;

效果示例:



相关文章

 从网上看到《Delphi API HOOK完全说明》这篇文章,基本上都...
  从网上看到《Delphi API HOOK完全说明》这篇文章,基本上...
ffmpeg 是一套强大的开源的多媒体库 一般都是用 c/c+&#x...
32位CPU所含有的寄存器有:4个数据寄存器(EAX、EBX、ECX和ED...
1 mov dst, src dst是目的操作数,src是源操作数,指令实现的...