下拉列表組件，TComboBox

下拉列表組件，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;