如何控制FORM启动时将所有的combobox itemindex全设为0

Question

晕，不出错才怪了。
你应该遍历form中的contral如果是combobox就执行：for i := 0 to form1.controls.count -1 do
 if form1.controls[i].classname = 'tcombobox' then
  TCombobox(form1.controls[i]).itemindex := 0PS:form1.controls[i]
       ^^^^^^^^似乎是这个属性，具体名字自己查一下

Answer 1

设计时设置所有combobox的默认项目为0
form on show 中设置控件的itemindex为0

Answer 2

for i := 0 to self.componentcount -1 do
 if (self.components[i] is tcombobox) then
  (self.components[i] as TComboBox).itemindex := 0