2013-05-11 67 views
1

我想给用户使用组合框的各种选项。所以有2个组合框。第一个有大约5个选项,第二个将根据用户在第一个组合框中选择的内容创建。Delphi7,创建组合框项目

到目前为止,我已经试过这样:Combobox2.Items.Strings[1]:='xxxx'出现我这个错误:

List out of Bound. 

我该怎么办?

+0

我有些惊讶,你没有发现使用CodeInsight的'Items'属性的'Add'方法。或者你没有尝试过。 – 2013-05-11 11:00:57

+0

ahaha,我已经发现了这种方法,当时我正在处理备忘录,从那以后我再也没有使用过它们......谢谢Andreas – user2296565 2013-05-11 11:02:22

回答

3

要填充在运行时TComboBox,你可以这样做:

ComboBox1.Items.BeginUpdate; 
ComboBox1.Items.Clear; 
ComboBox1.Items.Add('Alpha'); 
ComboBox1.Items.Add('Beta'); 
ComboBox1.Items.Add('Gamma'); 
ComboBox1.Items.Add('Delta'); 
ComboBox1.Items.EndUpdate; 

您也可以将预制的TStringList它。

+0

对你来说,显然它是'ComboBox2'。 – 2013-05-11 11:02:30

+0

我知道,我不是业余的....好吧,也许我是 – user2296565 2013-05-11 11:06:04

+0

好的,但有一个问题....每当我选择一个项目,它不会出现在组合框的文本 – user2296565 2013-05-11 11:10:02

-2

事件ONSELECT ComboCox1

过程TForm1.ComboBox1Select(发信人:TObject的);

begin

ComboBox2.Text:= ComboBox1.Text;

end;