我想给用户使用组合框的各种选项。所以有2个组合框。第一个有大约5个选项,第二个将根据用户在第一个组合框中选择的内容创建。Delphi7,创建组合框项目
到目前为止,我已经试过这样:Combobox2.Items.Strings[1]:='xxxx'
出现我这个错误:
List out of Bound.
我该怎么办?
我想给用户使用组合框的各种选项。所以有2个组合框。第一个有大约5个选项,第二个将根据用户在第一个组合框中选择的内容创建。Delphi7,创建组合框项目
到目前为止,我已经试过这样:Combobox2.Items.Strings[1]:='xxxx'
出现我这个错误:
List out of Bound.
我该怎么办?
要填充在运行时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
它。
对你来说,显然它是'ComboBox2'。 – 2013-05-11 11:02:30
我知道,我不是业余的....好吧,也许我是 – user2296565 2013-05-11 11:06:04
好的,但有一个问题....每当我选择一个项目,它不会出现在组合框的文本 – user2296565 2013-05-11 11:10:02
事件ONSELECT ComboCox1
过程TForm1.ComboBox1Select(发信人:TObject的);
begin
ComboBox2.Text:= ComboBox1.Text;
end;
我有些惊讶,你没有发现使用CodeInsight的'Items'属性的'Add'方法。或者你没有尝试过。 – 2013-05-11 11:00:57
ahaha,我已经发现了这种方法,当时我正在处理备忘录,从那以后我再也没有使用过它们......谢谢Andreas – user2296565 2013-05-11 11:02:22