如何调整TListGroups组顺序？运行时能否移动TListView选中分组？

当然可行！我来给你一步步拆解怎么实现分组的上下移动，以及调整TListGroups里的组顺序——这在VCL的TListView里完全可以做到。

核心逻辑 #

TListView的分组显示顺序完全由TListGroups集合内的元素顺序决定，所以要改变分组的展示位置，本质就是修改这个集合里组的索引位置，然后刷新ListView让界面同步更新。

具体实现步骤 #

假设你已经有了一个ViewStyle设为vsReport、GroupView设为True的TListView，以及两个按钮（上移btnMoveUp、下移btnMoveDown），直接给按钮绑定以下代码即可：

1. 上移按钮的点击事件 #

procedure TForm1.btnMoveUpClick(Sender: TObject);
var
  SelectedGroup: TListGroup;
  GroupIndex: Integer;
begin
  // 先判断是否有选中的项，且该项属于某个分组
  if Assigned(ListView1.Selected) and Assigned(ListView1.Selected.Group) then
  begin
    SelectedGroup := ListView1.Selected.Group;
    GroupIndex := ListView1.Groups.IndexOf(SelectedGroup);
    
    // 只有当前分组不是第一个时，才能执行上移
    if GroupIndex > 0 then
    begin
      // 调整分组在Groups集合中的位置
      ListView1.Groups.Move(GroupIndex, GroupIndex - 1);
      // 刷新ListView，让新的分组顺序生效
      ListView1.Refresh;
      // 保持选中当前分组（提升用户体验，可选）
      ListView1.Selected.Group := SelectedGroup;
    end;
  end;
end;

2. 下移按钮的点击事件 #

procedure TForm1.btnMoveDownClick(Sender: TObject);
var
  SelectedGroup: TListGroup;
  GroupIndex: Integer;
begin
  if Assigned(ListView1.Selected) and Assigned(ListView1.Selected.Group) then
  begin
    SelectedGroup := ListView1.Selected.Group;
    GroupIndex := ListView1.Groups.IndexOf(SelectedGroup);
    
    // 只有当前分组不是最后一个时，才能执行下移
    if GroupIndex < ListView1.Groups.Count - 1 then
    begin
      ListView1.Groups.Move(GroupIndex, GroupIndex + 1);
      ListView1.Refresh;
      ListView1.Selected.Group := SelectedGroup;
    end;
  end;
end;

关键注意事项 #

• 前置条件检查：必须确保ListView的GroupView属性为True，否则分组不会显示，移动操作也无意义。
• 空指针防护：一定要先判断ListView1.Selected和ListView1.Selected.Group是否为nil，避免运行时报错。
• 界面刷新：修改分组顺序后，调用Refresh就能让界面同步；如果遇到显示异常，可以尝试用Invalidate强制重绘，极端情况才需要RecreateWnd（会重建控件窗口，尽量少用）。
• 项的跟随性：分组移动后，组内的所有列表项会自动跟着分组移动，不需要单独处理项的位置。

直接调整TListGroups顺序的其他场景 #

如果你不需要通过按钮交互，而是想在代码里直接调整分组顺序，比如把指定分组移到某个位置，同样用Move方法即可：

// 把索引为2的分组（第三个组）移到索引0的位置（第一个）
ListView1.Groups.Move(2, 0);
ListView1.Refresh;

内容的提问来源于stack exchange，提问作者Marus Gradinaru