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

最新推荐文章于 2017-03-16 21:56:00 发布

你狗

最新推荐文章于 2017-03-16 21:56:00 发布

阅读量396

点赞数

原文链接：http://www.cnblogs.com/onechen/p/5108014.html

版权

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

uses FMX.Pickers;

使用 Style，需先设定好 Style 后，再指定预设项的 Style，方法如下：

procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
begin
     ComboBox2.DropDownKind := TDropDownKind.Custom;
     Combobox2.ListBox.DefaultItemStyles.ItemStyle := 'listboxitemstyle1';
end;

使用代码修改字型，方法如下：

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;