向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。你都创建完控件了，添加数据不很简单吗。你是还有什么要求吗

VB使用AddItem 方法给ComboBox控件添加数据。

AddItem 方法，用于将项目添加到 ListBox 或 ComboBox 控件。不支持命名参数。

Private Sub Form_Click()

    Dim Entry, I, Msg   ' 声明变量。

    Msg = "点OK增加100项到ComboBox控件"

    MsgBox Msg   ' 显示信息。

    For I = 1 To 100   ' 计数值从 1 到 100。

         Entry = "Entry " & I   ' 创建输入项。

         Combo1.AddItem Entry   ' 添加该输入项。

    Next I

End Sub

使用AddItem 方法为添加选项。

AddItem 方法，用于将项目添加到 ListBox 或 ComboBox 控件，或者将行添加到 MS Flex Grid

控件。不支持命名参数。

AddItem 方法示例代码，选OK增加100个项目到ComboBox控件

Private Sub Form_Click()

    Dim Entry, I, Msg   ' 声明变量。

    Msg = "选OK增加100个项目到ComboBox控件"

    MsgBox Msg   ' 显示信息。

    For I = 1 To 100   ' 计数值从 1 到 100。

        Entry = "Entry " & I   ' 创建输入项。

        Combo1.AddItem Entry   ' 添加该输入项。

    Next I

'    Msg = "选OK删除任一个Entry."

'    MsgBox Msg   ' 显示信息。

'    For I = 1 To 50   ' 确定如何

'        Combo1.RemoveItem I   ' 每隔一项

'    Next I   ' 删除。

'    Msg = "选OK删除全部"

'    MsgBox Msg   ' 显示信息。

'    Combo1.Clear   ' 清除列表框。

---