如何ListView VCL按代码折叠/展开？

Question

我正在使用Delphi 10.1和VCL。如何按代码折叠或展开所有或特定的组？

Answer 1

扩展状态位于组的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;