请选择 进入手机版 | 继续访问电脑版

大富翁Delphi开发技术网站

 找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 1649|回复: 0

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

[复制链接]

69

主题

96

帖子

834

积分

管理员

哈哈哈哈

Rank: 9Rank: 9Rank: 9

积分
834
发表于 2016-8-27 10:45:42 | 显示全部楼层 |阅读模式
精品文章
支持版本: Delphi XE10 
资源分类: 控件 
发布平台: Windows 
转载地址: -

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
在 FMX 下的 TComboBox 下拉菜单字型修改有二种方法:
  • uses FMX.Pickers;
  • 使用 Style,需先设定好 Style 后,再指定预设项的 Style,方法如下:
    1. procedure TForm1.FormCreate(Sender: TObject);
    2. var i: Integer;
    3. begin
    4.      ComboBox2.DropDownKind := TDropDownKind.Custom;
    5.      Combobox2.ListBox.DefaultItemStyles.ItemStyle := 'listboxitemstyle1';
    6. end;
    复制代码

    使用代码修改字型,方法如下:
    1. procedure TForm1.FormCreate(Sender: TObject);
    2. var i: Integer;
    3. begin
    4.      ComboBox1.DropDownKind := TDropDownKind.Custom;

    5.      for i:=0 to ComboBox1.Count - 1 do
    6.      begin
    7.           ComboBox1.ListBox.ListItems[i].StyledSettings :=  ComboBox1.ListBox.ListItems[i].StyledSettings - [TStyledSetting.Family, TStyledSetting.Size, TStyledSetting.FontColor];
    8.           ComboBox1.ListBox.ListItems[i].TextSettings.Font.Size := 20;
    9.           case i mod 3 of
    10.                0: ComboBox1.ListBox.ListItems[i].TextSettings.FontColor := claRed;
    11.                1: ComboBox1.ListBox.ListItems[i].TextSettings.FontColor := claBlue;
    12.                2: ComboBox1.ListBox.ListItems[i].TextSettings.FontColor := claGreen;
    13.           end;
    14.           ComboBox1.ListBox.ListItems[i].TextSettings.Font.Family := '字型名称';
    15.           ComboBox1.ListBox.ListItems[i].Height := 30;
    16.      end;
    17. end;
    复制代码

    617650-20160129085744786-1045908761.png

转载请保留当前帖子的链接:http://www.dfwlt.com/forum.php?mod=viewthread&tid=2261 谢谢!

搜索简单,分享不易,且分享且珍惜,您难道不想分享下您的心得?如果觉得本文章好的话,您可以在我们网站上注册,然后发布您的好的心得,让大家共同进步,谢谢!

最新添加

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

申请友链|Archiver|手机版|小黑屋|大富翁Delphi开发技术网站 ( 苏ICP备12065705号-4

GMT+8, 2019-10-18 03:31 , Processed in 0.109881 second(s), 35 queries .

Powered by Discuz! X3.1

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表