// TComboBoxEx cbbCity: TComboBoxEx; item: TComboExItem; cbbCity.ItemsEx.Clear; //清空 cbbProv.itemIndex //当前索引 item := cbbCity.ItemsEx.Add; //添加项 // cbbCity.ItemsEx.AddItem(FGQRegion.AreaRegion.Items[i].RegionName,i,1,1,1,nil) ; //为什么这样不行 item.Caption := FGQRegion.CityRegion.Items[i].RegionName; item.ImageIndex := i; //作为标志位而已 cbbCity.ItemsEx.Items[cbbCity.itemIndex].ImageIndex; //取图像索引 //TComboBox cbbAction.Items.Add(Format('%s>开始查询...', [FormatDateTime('hh:mm:ss', Now)]));//添加格式化的项 cbbAction.ItemIndex := cbbAction.Items.Count - 1; //自动指定最后一行