【发布时间】：2018-04-20 19:33:04
【问题描述】：
我正在使用 Delphi 10.1 和 VCL。如何按代码折叠或展开所有或特定组？
【问题讨论】：
标签： listview delphi vcl delphi-10.1-berlin
【发布时间】：2018-04-20 19:33:04
【问题描述】：
展开状态在组的State 属性中。例如，折叠第一组：
ListView1.Groups[0].State := ListView1.Groups[0].State + [lgsCollapsed];
一次处理所有组没有捷径。您必须一次遍历它们：
for I := 0 to ListView1.Groups.Count-1 do
begin
ListView1.Groups[I].State := ListView1.Groups[I].State + [lgsCollapsed];
end;
【讨论】：
-
谢谢。建议从ListView1.Items.BeginUpdate开始，折叠/展开命令，由ListView1.Items.EndUpdate完成
-
Reron 你会把它们放在循环中，而不是在里面。 @Remy 只发布了一个迭代示例。