listview - 如何通过代码使ListView VCL折叠/展开？

Question

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

Answer 1

扩展状态位于组的 State 中属性(property)。例如，要折叠第一组:

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;