Delphi之TreeView

Delphi 中的 TreeView 是一个非常常用的控件，用于表达层级关系的数据，例如文件目录树、组织架构树等。TreeView 有一个根节点，根节点可以拥有任意数量的子节点，每个子节点又可以拥有子节点。TreeViwe 通过节点的嵌套关系，形成了层级结构。TreeView 允许用户展开或收起每个节点，以及选中某个节点。本文将详细介绍在 Delphi 中如何使用 TreeView。

首先，我们需要在 Delphi 中建立一个 TreeView 控件。可以通过在 toolbox 中选择 TreeView 控件，然后在 form 上拖动，或者通过代码实现：

```

var

TreeView1: TTreeView;

begin

TreeView1 := TTreeView.Create(Self);

TreeView1.Parent := Self;

TreeView1.Align := alClient;

end;

```

TreeView 控件中的每个节点都可以有很多属性，例如图标、文本、是否可见、是否可编辑等。其中最重要的属性是 Parent 和 Childern，它们分别表示节点的父节点和子节点。下面是几个常用的节点属性：

- Text：节点文本。

- ImageIndex 和 SelectedIndex：节点图标的索引。TreeView 支持两个图标列表，分别是 NormalImageList 和 SelectedImageList。

- Expanded：节点是否展开。

- Data：与节点关联的数据，可以是任意类型的指针，用于实现数据结构与界面之间的绑定。

下面是一个简单的代码示例，它创建了一个带有两个子节点的 TreeView：

```

TreeView1.Items.Add(nil, 'Root Node');

TreeView1.Items.AddChild(TreeView1.Items[0], 'Child Node 1');

TreeView1.Items.AddChild(TreeView1.Items[0], 'Child Node 2');

```

这段代码先创建了一个根节点，然后在根节点下创建了两个子节点。在 Delphi 中，TreeView 通过 Items 属性来获取节点集合，每个节点都是 TTreeNode 类型的对象。Add 方法可以用于在节点集合中添加新节点，第一个参数表示父节点，如果是根节点则使用 nil，第二个参数表示节点文本。

我们可以通过代码对 TreeView 进行很多操作。例如展开或收起某个节点：

```

TreeView1.Items[0].Expand(False); // 收起根节点

TreeView1.Items[0].Expand(True); // 展开根节点

```

我们还可以对节点进行选中和取消选中的操作：

```

TreeView1.Selected := TreeView1.Items[0]; // 选中根节点

TreeView1.Selected := nil; // 取消选中

```

在 TreeView 上右击会弹出一个默认菜单，可以通过代码自定义菜单，或者通过 OnContextPopup 事件来自定义右键菜单。

```

procedure TForm1.TreeView1ContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean);

var

Node: TTreeNode;

begin

Node := TreeView1.GetNodeAt(MousePos.X, MousePos.Y);

if Node <> nil then

begin

TreeView1.Selected := Node;

PopupMenu1.Popup(MousePos.X, MousePos.Y);

end;

Handled := True;

end;

```

这段代码实现了自定义菜单的功能，当用户右击 TreeView 上的任意一个节点时，会触发 OnContextPopup 事件，然后调用 PopupMenu1 弹出一个菜单。

对于 TreeView 的节点，Delphi 还提供了很多其他的属性和方法。例如，我们可以在节点上添加复选框：

```

TreeView1.CheckBoxes := True;

// 添加节点时，第三个参数表示是否添加复选框，例如：

TreeView1.Items.AddChild(nil, 'Node with CheckBox', Checked);

```

还可以使用代码来判断节点是否选中，以及设置节点的文本和图标：

```

if TreeView1.Items[0].Selected then

ShowMessage('Node 1 is selected.')

TreeView1.Items[0].Text := 'New Text';

TreeView1.Items[0].ImageIndex := 1;

```

以上仅是 TreeView 的一些基本使用方法，还有很多其他的功能和属性可以去探索。总之，TreeView 是 Delphi 中非常实用的控件，可以在各种界面中方便地展示树形数据，提供良好的交互体验，增强用户体验。