设为首页 加入收藏

TOP

Firemonkey TComboBox 下拉菜单字型修改方法 (D10)
2017-10-10 12:07:22 】 浏览:1577
Tags:Firemonkey TComboBox 下拉 菜单 字型 修改 方法 D10

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

  1. uses FMX.Pickers;
  2. 使用 Style,需先设定好 Style 后,再指定预设项的 Style,方法如下:
    procedure TForm1.FormCreate(Sender: TObject);
    var i: Integer;
    begin
         ComboBox2.DropDownKind := TDropDownKind.Custom;
         Combobox2.ListBox.DefaultItemStyles.ItemStyle := 'listboxitemstyle1';
    end;

  3. 使用代码修改字型,方法如下:
    procedure TForm1.FormCreate(Sender: TObject);
    var i: Integer;
    begin
         ComboBox1.DropDownKind := TDropDownKind.Custom;
    
         for i:=0 to ComboBox1.Count - 1 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 := 20;
              case i mod 3 of
                   0: ComboBox1.ListBox.ListItems[i].TextSettings.FontColor := claRed;
                   1: ComboBox1.ListBox.ListItems[i].TextSettings.FontColor := claBlue;
                   2: ComboBox1.ListBox.ListItems[i].TextSettings.FontColor := claGreen;
              end;
              ComboBox1.ListBox.ListItems[i].TextSettings.Font.Family := '字型名称';
              ComboBox1.ListBox.ListItems[i].Height := 30;
         end;
    end;

     

效果示例:


 


编程开发网
】【打印繁体】【投稿】【收藏】 【推荐】【举报】【评论】 【关闭】 【返回顶部
上一篇学习笔记:7z在delphi的应用 下一篇技术笔记:Indy控件发送邮件

评论

帐  号: 密码: (新用户注册)
验 证 码:
表  情:
内  容:

最新文章

热门文章

C 语言

C++基础

windows编程基础

linux编程基础

C/C++面试题目