Delphi XE 中有带标题的虚拟列表框吗？

Question

抱歉，这个背景有点复杂...我正在将 D5 项目转换为 DXE...它有一个包含数千项的列表框。在搜索框中每次击键都会对这些项目进行完整的渐进式文本搜索。在 D5（虚拟列表之前）中，我必须使用 LMD 列表框（因为列表框中有几列带有标题）、一个单独的滚动条和一个记录数组来创建自己的虚拟列表框。当用户浏览搜索结果或修改搜索时，列表框将被填充。这表现得很好，但由于现在虚拟列表框是 Delphi 原生的，我打算将自定义列表框转换为原生列表框，但我找不到具有虚拟功能的标题的列表框组件。帮助？

是否有可用的组件具有虚拟列表和标题/列？

我忘了提及：我知道 Soft Gems VirtualTreeView 组件 - 这些非常好，可能是我将要使用的，但是... DXE 中有没有一种方法可以在没有第 3 方实用程序的情况下完成此任务？我担心我在 DXE 中遗漏了一些明显的东西，因为我只使用它大约一个月。

Answer 1

TListView 是 Windows 列表视图公共控件的薄包装。在虚拟模式下使用报告视图样式运行它，以实现我相信您所要求的目标。

---

为了设置虚拟列表视图，您需要将 OwnerData 设置为 True 并提供 OnData 事件处理程序。

procedure TVirtualListViewForm.FormCreate(Sender: TObject);
begin
  ListView1.ViewStyle := vsReport;
  ListView1.Columns.Add.Caption := 'Column1';
  ListView1.Columns.Add.Caption := 'Column2';
  ListView1.OwnerData := True;
  ListView1.OnData := ListViewData;
  ListView1.Items.Count := 42;
end;

procedure TVirtualListViewForm.ListViewData(Sender: TObject; Item: TListItem);
begin
  Item.Caption := Format('Column 0, index %d', [Item.Index]);
  Item.SubItems.Add(Format('Column 1, index %d', [Item.Index]));
end;

根据您的需要，可能需要 OnDataFind 来实现渐进式文本搜索。

Answer 2

您可以使用我的组件 TDzListHeader，可在 GitHub 上找到： https://github.com/digao-dalpiaz/DzListHeader

该组件允许您在 TCollection 中创建列，您应该将 TListBox 放入 TListHeader 中，然后链接它们。

DzListHeader 示例

所有用法和详细文档都可以在 github 项目中找到。