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;