加入收藏 | 设为首页 | 会员中心 | 我要投稿 李大同 (https://www.lidatong.com.cn/)- 科技、建站、经验、云计算、5G、大数据,站长网!
当前位置: 首页 > 大数据 > 正文

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

发布时间:2020-12-15 04:37:18 所属栏目:大数据 来源:网络整理
导读:在 FMX 下的 TComboBox 下拉菜单字型修改有二种方法: 使用 Style,需先设定好 Style 后,再指定预设项的 Style,方法如下: = Combobox2.ListBox.DefaultItemStyles.ItemStyle := ; 使用代码修改字型,方法如下: = /spanspan style="color: #0000ff;"gt;fo

在 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;

效果示例:



(编辑:李大同)

【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!

    推荐文章
      热点阅读