在 FMX 下的 TComboBox 下拉菜單字型修改有二種方法:使用 Style,需先設定好 Style 後,再指定預設項的 Style,方法如下:procedure TForm1.FormCreate(Sender: TObject);var i: Integer;begin Combo...
在 FMX 下的 TComboBox 下拉菜單字型修改有二種方法:
- 使用 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 ComboBox2.DropDownKind := TDropDownKind.Custom; for i:=0 to ComboBox2.Count - 1 do begin ComboBox2.ListBox.ListItems[i].StyledSettings := ComboBox2.ListBox.ListItems[i].StyledSettings - [TStyledSetting.Family, TStyledSetting.Size, TStyledSetting.FontColor]; ComboBox2.ListBox.ListItems[i].TextSettings.Font.Size := 16; ComboBox2.ListBox.ListItems[i].TextSettings.FontColor := claRed; ComboBox2.ListBox.ListItems[i].TextSettings.Font.Family := '字型名稱'; ComboBox2.ListBox.ListItems[i].Height := 22; end; end;
效果示例: