Delphi，XE2，之，FireMonkey，入门(41)，-，控件基础:，TListBox

TListBox是FireMonkey控件库中常用的列表框控件，它可以让你在界面中显示一系列的选项、条目或者任何自定义的内容，并且允许用户进行选择、展开或者折叠。

一、TListBox的属性及方法：

1、Items：TListBox的Items属性是用来存储列表框中的所有项，你可以通过代码或者设计器的方式添加或删除列表项，例如：

TListBox1.Items.Add('Delphi');

TListBox1.Items.Delete(0);

2、ItemIndex：TListBox的ItemIndex属性表示当前选择项的索引，通过设置这个属性值，可以改变列表框当前选项。

3、SelectionMode：SelectionMode属性表示列表框中的选择模式，支持单选、多选、多选但是只能选择一个等多种模式。

4、OnItemClick：OnItemClick事件在用户点击列表框中某一项时触发，可以自定义事件响应函数，例如：

procedure TForm1.ListBox1ItemClick(const Sender: TObject;

const AItem: TListBoxItem);

begin

ShowMessage('你点击了 ' + AItem.Text);

end;

二、TListBox的案例：

下面我们通过一个简单的案例来演示如何使用TListBox：

1、新建一个FireMonkey桌面应用程序；

2、在主窗口中添加一个TListBox组件，并设置一些属性：

TListBox1.ItemHeight := 30; // 设置列表项高度

TListBox1.SelectionMode := TSelectionMode.Multi; // 多选模式

3、添加一些列表项：

TListBox1.Items.Add('Item 1');

TListBox1.Items.Add('Item 2');

TListBox1.Items.Add('Item 3');

TListBox1.Items.Add('Item 4');

TListBox1.Items.Add('Item 5');

4、添加一个按钮，用来弹出当前选中的项：

procedure TMainForm.ShowSelectedBtnClick(Sender: TObject);

var

i: Integer;

s: string;

begin

s := 'Selected Items:';

for i := 0 to TListBox1.Items.Count - 1 do

if TListBox1.ListItems[i].IsSelected then

s := s + #13#10 + TListBox1.ListItems[i].Text;

ShowMessage(s);

end;

5、运行程序，尝试选择列表框中的多个项，然后点击“Show Selected”按钮，将会弹出选中的项。

三、总结：

本文主要介绍了FireMonkey控件库中的TListBox控件，包括TListBox的属性及方法、以及通过一个简单的案例演示了如何使用TListBox来实现列表框控件的基本功能。如果你对FireMonkey的其他控件也感兴趣，可以去探究一下它们的使用方法和特性。

壹涵网络我们是一家专注于网站建设、企业营销、网站关键词排名、AI内容生成、新媒体营销和短视频营销等业务的公司。我们拥有一支优秀的团队，专门致力于为客户提供优质的服务。

我们致力于为客户提供一站式的互联网营销服务，帮助客户在激烈的市场竞争中获得更大的优势和发展机会！