【3.Delphi常用组件】5.列表类组件

5.列表类组件

5.1 ListBox

列表框（ListBox）组件同时显示所有选项，其主要属性如下：

属性	说明
Items	列表框的选项集合
ItemsIndex	选项的索引值
Stored	选项是否排序
Columns	列表框的列数
MultiSelect	是否可以多项选择
SelCount	被选中的项目的数量，只读属性
Selected	用来设置或返回是否被选中
IntegralHeight	控制是否自动调整，取值： True - 自动调整高度使每行的高度可以完整地被显示 False - 不自动调整高度，非完整高度行被显示在框的底部
ItemHeight	控制列表框中行的高度，Style属性为lbStandard时不能改变
Style	样式，取值如下： lbStandard - 固定Font.Size属性与ItemHeight属性之比 lbOwnerDrawFixed - 可以调整ItemHeight，同时自动调整框的高度以适应行高 lbOwnerDrawVariable - 可以调整ItemHeight，需手动调整框的高度以适应行高 后两个取值将会受到IntegralHeight属性的影响，当IntegralHeight为False时，将不会自动调整框的高度

5.2 ComboBox

组合框（comboBox）组件兼有EditBox和ListBox的功能，可以通过输入文本或选择项目来进行操作。主要属性如下：

属性	说明
Items	选项集合
ItemsIndex	选项的索引值
Stored	是否排序
DropDownCount	组合框下拉列表显示选项的最大数量
SelText	显示在编辑区中被选中项的内容
Style	组合框风格

示例：填写个人信息的表单，界面如下图：

 

代码如下：

procedure TForm1.Button1Click(Sender: TObject);
begin
  // 确定按钮单击事件
  Memo1.Lines.Add('姓名：' + Edit1.Text);
  Memo1.Lines.Add('性别：' + ComboBox1.Text);
  Memo1.Lines.Add('学历：' + ComboBox2.Text);
  Memo1.Lines.Add('专业：' + ComboBox3.Text);
end;
​
procedure TForm1.Button2Click(Sender: TObject);
begin
  // 重写按钮单击事件
  Edit1.Text := '';
  ComboBox1.Text := '';
  ComboBox2.Text := '';
  ComboBox3.Text := '';
​
  Memo1.Lines.Clear;
end;
​
procedure TForm1.Button3Click(Sender: TObject);
begin
  // 取消按钮单击事件
  close;
end;