下拉列表组件，TComboBox

最新推荐文章于 2025-07-21 09:03:00 发布

原创最新推荐文章于 2025-07-21 09:03:00 发布 · 786 阅读

0 ·

CC 4.0 BY-SA版权

Delphi 7 专栏收录该内容

13 篇文章

订阅专栏

本文介绍了一个 Delphi 中 TComboBox 组件的使用示例，包括设置下拉列表为 DropDownList 模式、添加项目、删除项目等基本操作，并附带了一段演示代码。

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