你试试以下代码：ComboBox1.Clear; ComboBox1.Items.AddStrings(Screen.Fonts); ComboBox1.ItemIndex:=0;
貌似有这种现成的控件！！devexpress 套件里raize都有现成的……
cbb1.Items.Assign(Screen.Fonts);
DELPHI有一个字体combobox组件吧!
