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

TListBox 是 Delphi XE2 FireMonkey 框架中的一种常用控件，用于显示一列项目。与传统的 VCL ListBox 不同，FireMonkey 的 TListBox 提供了更加丰富的样式和可定制的功能，使得开发者能够创建更具吸引力和交互性的应用程序。

TListBox 的基本用法相对简单，可以通过以下步骤创建并使用 TListBox：

1. 在 FireMonkey 表单中放置一个 TListBox 控件。可以通过拖拽 TListBox 控件到表单上来实现。

2. 添加项目到 TListBox 中。在设计时，可以通过选中 TListBox 控件，在属性面板的 Items 列表框中添加项目。当然，你也可以在运行时动态地向 TListBox 添加项目，使用 AddItem 方法即可。

3. 通过代码获取或修改选中的项目。使用 Selected 属性可以获取或设置当前选择的项目的索引。

4. 处理选择变化的事件。TListBox 提供了 OnChange 事件，你可以通过这个事件处理程序来响应项目的选择变化。

在实际的应用中，你可能需要对 TListBox 进行更多的定制，以下是一些常用的定制方法和属性：

1. 定制项目的外观：可以通过自定义 StyleLookup 属性来改变项目的外观。可以使用系统提供的样式或者自己创建一个自定义样式。

2. 自定义项目的显示内容：通过 OnCustomDrawItem 事件来自定义项目的显示内容，这个事件提供了 Canvas 参数，可以直接在 Canvas 上绘制项目的外观。

3. 定制选中项目的外观：可以通过自定义 StyleLookup 属性中的 "listboxitemselectstyle" 去改变选中项目的外观。

4. 添加图标到项目：每个项目都可以关联一个图标，通过设置 ImageIndex 属性或在 OnCustomDrawItem 事件中使用 Canvas.DrawBitmap 方法来实现。

5. 处理项目的交互事件：TListBox 提供了一些交互事件，如 OnItemMouseDown、OnItemMouseEnter、OnItemMouseLeave、OnItemClick 等，可以在这些事件处理程序中对项目的交互行为进行定制。

需要注意的是，在移动设备上，TListBox 的外观会被 FireMonkey 的样式支持所影响。这意味着你可以轻松地改变整个程序的外观，包括 TListBox 的外观。

下面是一个简单的示例，演示如何使用 TListBox 控件来显示一个列表，并实时获取和修改所选项目的索引：

```

procedure TForm1.ListBox1Change(Sender: TObject);

begin

ShowMessage('Selected index: ' + IntToStr(ListBox1.Selected));

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

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

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

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

end;

```

在这个示例中，我们在 TListBox 的 OnChange 事件处理程序中显示了当前选中的项目的索引，并在按钮的点击事件处理程序中动态地向 TListBox 中添加了一些项目。

这只是 TListBox 的基本用法和一些常见的定制方法。FireMonkey 框架还提供了更多的功能来定制 TListBox 的外观和行为，你可以在 Delphi 的帮助文档中了解更多详细的信息。 如果你喜欢我们三七知识分享网站的文章， 欢迎您分享或收藏知识分享网站文章 欢迎您到我们的网站逛逛喔！https://www.37seo.cn/