向tcombobox的控件中添加值，该怎么解决

for I := 1 to 6 do

with TComboBox.Create(self) do begin

Name :='jb_xx1_' + InttoStr(I)

Parent := Self.TabSheet2

Top := 27*(i-1)+3

Left := length(jb_txt[i])*6+30

Height := 2

font.Name := 'Arial'

font.Size :=8

// 添加数据

for j:1 to ADOQuery1.RecordCount do

begin

Items.Add(ADOQuery1.FeildByName('comboboxItems').AsString)

end

// 添加结束，将默认显示设为显示第一项

ItemIndex := 0

show

end

上面是从数据库读取数据添加（记得打开和关闭连接就行）。要是有固定的值就更简单了，直接添加就OK。你都创建完控件了，添加数据不很简单吗。你是还有什么要求吗

你应该说的是winform中的下拉列表控件吧！

如果这些选项是固定的，可以直接在控件的属性面板中找到Items属性中去添加选项；

如果需要代码添加，就可以使用 控件名.Items.Add("选项") 的语句来添加；

如果是数据源中取出来的数据，可以使用数据绑定的方式添加；

控件名.DataSource=数据源 的语句来添加选项。

---