delphi中的ComboBox组件的使用？

三项 *** 作：（{}括号内为多行文本）

1．对象属性中的“Items”设置成{

A

B

C

D

E

}

2．对象属性中的“Style”设置成csDropDownList

3．对象属性中的戚孙“ItemIndex”信仔戚设置成0

保存编译滑陵运行

当ComboBox的style属性csDropDownList时，设置其itemindex为-1，就会清除显示了。

再，你的过程写得比较繁琐，帮你改了一下，以供你参考。

procedure TForm1.Button1Click(Sender: TObject)

var

i:integer

begin

for i:=0 to self.ComponentCount-1 do

begin

if self.Components[i] is TEdit then

begin

TEdit(self.Components[i]).Clear

end

if self.Components[i] is TComboBox then

begin

if TComboBox(self.Components[i]).Style=csDropDown then

begin

TComboBox(self.Components[i]).Clear

end

else if TComboBox(self.Components[i]).Style=csDropDownList then

begin

TComboBox(self.Components[i]).Style:=csDropDown

TComboBox(self.Components[i]).ItemIndex:=-1

TComboBox(self.Components[i]).Style:=csDropDownList

end

end

end

end

程序delphi7环境下测试通过。思路是处理的时候先判断combobox的style属性，然后相应的作出正猛改变，处理乱清完后还举陪桥原其属性设置。

---