Question

delphi中combox怎么用

我要写一个很小的定时器，让combox控件的数字显示在标签上，只能是用items的判断吗？还有别的办法？
只能是这样：if combox1=1 then
label1.caption:='1'
.......
if combox1=59 then
label1.caption:='59'
这样不是很烦吗？
难道如果很多还是只能判断啊，有没有别的办法？
望大侠教我一下，谢谢 在线等

Answer 1

如果你的标签显示的内容，跟combox里的内容一致，那就如上面两位所说的就行了 label1.caption:=combox1.Text
如果显示的不一致，比如说，当combox为1时，标签显示“您好”，当combox为2时，标签显示“早上好”，这种情况就只能够一个一个写了。不过可以用 case of 代替 if 比较直观易读一点。

Answer 2

ComboBox1的OnChange事件里设置ComboBox2的内容
ComboBox2的OnChange事件里设置Edit1的内容
1 .valueField:"valuefield"//value值字段
2.displayField："field" //显示文本字段
3.editable：false//false则不可编辑，默认为true
4.triggerAction:"all"//请设置为"all",否则默认为"query"的情况下，选择某个值后，再此下拉时，只出现匹配选项，如果设为"all"的话，每次下拉均显示全部选项.

Answer 3

两种方式
方式一：
定义 astrLabel: array[1..59] of string = (
'1',
'2',
...
'59'
);

label1.caption := astrLabel[combox1.itemindex];

方式二：
利用
combobox1.Items.AddObject(Item:string; Object: TObject);
将你要的数据封装到Object中

label1.caption := (combobox1.items.objects[combobox1.itemindex] as TMyClass).strValue;

Answer 4

combox控件的数字是什么意思？

直接 label1.caption:=combox1.Text 不行么?

Answer 5

如果你是要显示combox的item编号，那可以这样写
label1.caption:=inttostr(conbox1.itemindex);
如果是显示内容： label1.caption:=combox1.Text