下拉列表组件,TComboBox,比较懒,就直接截图看吧。 下面是常用属性的取值 下面是items属性 最后附上一小段代码 procedure TForm1.FormCreate(Sender: TObject); begin //ComboBox1.DropDownCount:=0; ComboBox1.CharCase:=ecUpperCase; ComboBox1.Style:=csDropDownList; ComboBox1.Items.Append('hello'); ComboBox1.Items.Append('world'); ComboBox1.Items.Append('china'); ShowMessage(IntToStr(ComboBox1.Items.Count)); ComboBox1.Items.Delete(1); ShowMessage(IntToStr(ComboBox1.Items.IndexOf('china'))); ShowMessage(ComboBox1.Items.Strings[1]); ShowMessage(ComboBox1.Items.Text); ShowMessage(ComboBox1.Items.ValueFromIndex[0]); end; procedure TForm1.ComboBox1Change(Sender: TObject); begin ShowMessage(IntToStr(ComboBox1.ItemIndex)); ComboBox1.DeleteSelected; end;