Virtual-TreeView：Delphi/Pascal 中高效灵活的虚拟树控件

icy 昨天 12 抢沙发

默认

摘要： Virtual-TreeView：Delphi/Pascal 中高效灵活的虚拟树控件项目概述 Virtual-TreeView 是一个功能强大的 Delphi 和 Lazarus...

Virtual-TreeView：Delphi/Pascal 中高效灵活的虚拟树控件

项目概述

Virtual-TreeView 是一个功能强大的 Delphi 和 Lazarus (Free Pascal) 虚拟树控件库，它采用虚拟化技术高效处理大量数据，特别适合需要显示层次结构数据的应用程序。该项目由 JAM Software 维护，已成为 Delphi/Pascal 生态系统中处理树形数据的标准解决方案之一。

核心特性

1. 高性能虚拟化

内存高效：仅创建和渲染可见节点，支持处理数百万条记录
延迟加载：按需初始化节点，提高启动速度和响应性
智能缓存：优化滚动和展开/折叠操作

2. 丰富的功能集

多列支持与自定义列绘制
多种选择模式（单选、多选、区间选择等）
完整的拖放操作支持
节点复选框和单选框
内联编辑功能
搜索和过滤功能
节点高度自定义
丰富的视觉样式选项

3. 跨平台兼容性

支持 Delphi 7 到最新版本
支持 Lazarus/Free Pascal
跨平台兼容（Windows、macOS、Linux）

安装与配置

Delphi 安装步骤

克隆或下载项目源码
打开 VirtualTreesDXX.dproj（对应你的 Delphi 版本）
编译并安装包
在组件面板中找到 TVirtualStringTree 等组件

Lazarus 安装

打开 Lazarus
选择”包” → “打开包文件”
选择 VirtualTreeView\Package\VirtualTreesLaz.lpk
编译并安装

基础使用示例

示例1：创建简单树形列表

text

procedure TForm1.FormCreate(Sender: TObject);
var
  Node: PVirtualNode;
  Data: PMyRecord;
begin
  // 设置列
  VirtualStringTree1.Header.Columns.Clear;
  with VirtualStringTree1.Header.Columns.Add do
  begin
    Text := '名称';
    Width := 150;
  end;
  with VirtualStringTree1.Header.Columns.Add do
  begin
    Text := '数值';
    Width := 100;
  end;

  // 添加根节点
  Node := VirtualStringTree1.AddChild(nil);
  Data := VirtualStringTree1.GetNodeData(Node);
  Data^.Name := '根节点';
  Data^.Value := 100;

  // 添加子节点
  Node := VirtualStringTree1.AddChild(Node);
  Data := VirtualStringTree1.GetNodeData(Node);
  Data^.Name := '子节点1';
  Data^.Value := 50;
end;

// 定义数据结构
type
  PMyRecord = ^TMyRecord;
  TMyRecord = record
    Name: string;
    Value: Integer;
  end;

示例2：自定义节点绘制

text

procedure TForm1.VirtualStringTree1GetText(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
  var CellText: string);
var
  Data: PMyRecord;
begin
  Data := Sender.GetNodeData(Node);
  if Assigned(Data) then
  begin
    case Column of
      0: CellText := Data^.Name;
      1: CellText := IntToStr(Data^.Value);
    end;
  end;
end;

procedure TForm1.VirtualStringTree1PaintText(Sender: TBaseVirtualTree;
  const TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
  TextType: TVSTTextType);
var
  Data: PMyRecord;
begin
  Data := Sender.GetNodeData(Node);
  if Assigned(Data) and (Data^.Value > 80) then
    TargetCanvas.Font.Style := [fsBold];  // 高值加粗显示
end;

示例3：实现复选框和选择功能

text

procedure TForm1.InitializeTreeWithCheckboxes;
begin
  // 启用复选框
  VirtualStringTree1.CheckBoxOptions := [
    coCheckBoxSelectOnly,
    coCheckBoxClick,
    coCheckBoxDblClick
  ];
  
  // 设置选择模式
  VirtualStringTree1.TreeOptions.SelectionOptions := [
    toFullRowSelect,
    toMultiSelect,
    toRightClickSelect
  ];
  
  // 处理复选框状态变化
  VirtualStringTree1.OnChecked := VirtualStringTree1Checked;
end;

procedure TForm1.VirtualStringTree1Checked(Sender: TBaseVirtualTree;
  Node: PVirtualNode);
begin
  // 处理选中状态变化
  if Sender.CheckState[Node] = csCheckedNormal then
    ShowMessage('节点被选中')
  else if Sender.CheckState[Node] = csUncheckedNormal then
    ShowMessage('节点取消选中');
end;

高级应用示例

示例4：实现拖放功能

text

procedure TForm1.EnableDragDrop;
begin
  VirtualStringTree1.TreeOptions.AutoOptions := 
    VirtualStringTree1.TreeOptions.AutoOptions + [toAutoDropExpand];
  VirtualStringTree1.TreeOptions.MiscOptions := 
    VirtualStringTree1.TreeOptions.MiscOptions + [toAcceptOLEDrop, toEditable];
  
  // 设置拖放事件
  VirtualStringTree1.OnDragAllowed := VirtualStringTree1DragAllowed;
  VirtualStringTree1.OnDragOver := VirtualStringTree1DragOver;
  VirtualStringTree1.OnDragDrop := VirtualStringTree1DragDrop;
end;

procedure TForm1.VirtualStringTree1DragAllowed(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Column: TColumnIndex; var Allowed: Boolean);
begin
  Allowed := True;  // 允许拖放
end;

procedure TForm1.VirtualStringTree1DragDrop(Sender: TBaseVirtualTree;
  Source: TObject; DataObject: IDataObject; Formats: TFormatArray;
  Shift: TShiftState; Pt: TPoint; var Effect: Integer; Mode: TDropMode);
begin
  // 实现拖放逻辑
  if Sender.DropTargetNode <> nil then
  begin
    // 移动节点到新位置
    Sender.MoveTo(Sender.FocusedNode, Sender.DropTargetNode, amInsertAfter, False);
  end;
end;

示例5：实现搜索和过滤

text

procedure TForm1.SearchTree(const SearchText: string);
var
  Node: PVirtualNode;
  Data: PMyRecord;
begin
  VirtualStringTree1.BeginUpdate;
  try
    Node := VirtualStringTree1.GetFirst;
    while Assigned(Node) do
    begin
      Data := VirtualStringTree1.GetNodeData(Node);
      VirtualStringTree1.IsVisible[Node] := 
        (SearchText = '') or (Pos(LowerCase(SearchText), LowerCase(Data^.Name)) > 0);
      Node := VirtualStringTree1.GetNext(Node);
    end;
  finally
    VirtualStringTree1.EndUpdate;
  end;
end;