Delphi 10.2 Tokyo中TListView列调整时排序箭头消失的解决方法

嘿，这个问题我之前在Delphi 10.3里也踩过坑！核心原因是你之前只在列点击事件里画了一次箭头，但ListView调整列宽时会触发列头的重绘，系统会把你手动画的箭头覆盖掉——毕竟默认的列头绘制逻辑不知道你加了自定义箭头。

要实现像Windows资源管理器那样箭头始终显示的效果，你得把箭头绘制逻辑绑定到列头重绘事件里，而不是只在点击时执行一次。具体可以这么做：

第一步：准备必要的状态变量 #

在你的自定义ListView组件类里，先加两个私有变量来记录当前的排序状态：

private
  FSortColumn: Integer; // 当前排序列的索引
  FSortAscending: Boolean; // 是否升序排序

在列点击事件里，更新这两个变量（比如点击列时切换排序方向，记录当前列索引），然后调用Invalidate触发重绘：

procedure TMyListView1.ColumnClick(Sender: TObject; Column: TListColumn);
begin
  if Column.Index = FSortColumn then
    FSortAscending := not FSortAscending
  else
  begin
    FSortColumn := Column.Index;
    FSortAscending := True;
  end;
  // 这里加上你的原有排序逻辑...
  Invalidate; // 触发列头重绘，让箭头同步更新
end;

第二步：开启OwnerDraw并接管列头绘制 #

把ListView的OwnerDraw属性设为True，然后处理OnDrawColumnHeader事件——这个事件会在列头需要重绘时触发（包括调整列宽、窗口刷新等场景）。在事件里，我们先让系统绘制默认的列头内容，再在当前排序列的右侧画箭头：

procedure TMyListView1.DrawColumnHeader(Sender: TCustomListView;
  const Rect: TRect; Index: Integer; State: TListViewColumnState;
  var DefaultDraw: Boolean);
var
  ArrowRect: TRect;
  ArrowPoints: TPointArray;
begin
  // 先让系统绘制默认的列头文本和背景，避免自己手动绘制整个列头的繁琐工作
  DefaultDraw := True;

  // 只在当前排序列绘制箭头
  if Index <> FSortColumn then Exit;

  // 计算箭头的位置：列头右侧预留15px空间，垂直居中对齐
  ArrowRect := Rect;
  ArrowRect.Left := ArrowRect.Right - 15;
  ArrowRect.Top := ArrowRect.Top + (ArrowRect.Bottom - ArrowRect.Top - 8) div 2;
  ArrowRect.Right := ArrowRect.Left + 8;
  ArrowRect.Bottom := ArrowRect.Top + 8;

  // 设置箭头的画笔/画刷颜色（和列头文本颜色一致，保证在不同主题下都可见）
  Canvas.Pen.Color := clWindowText;
  Canvas.Brush.Color := clWindowText;

  // 根据排序方向绘制对应的箭头
  if FSortAscending then
    ArrowPoints := [Point(ArrowRect.Left + 4, ArrowRect.Top),
                    Point(ArrowRect.Left, ArrowRect.Bottom),
                    Point(ArrowRect.Right, ArrowRect.Bottom)]
  else
    ArrowPoints := [Point(ArrowRect.Left + 4, ArrowRect.Bottom),
                    Point(ArrowRect.Left, ArrowRect.Top),
                    Point(ArrowRect.Right, ArrowRect.Top)];

  Canvas.Polygon(ArrowPoints);
end;

第三步：初始化状态 #

在组件的构造函数里初始化排序状态，避免出现异常：

constructor TMyListView1.Create(AOwner: TComponent);
begin
  inherited;
  OwnerDraw := True;
  FSortColumn := -1; // 默认没有排序列
  FSortAscending := True;
end;

这样一来，不管是点击列切换排序，还是调整列宽、刷新窗口，列头重绘时都会自动绘制对应的箭头，完全和Windows资源管理器的效果一致。

另外提个小细节：如果列宽太窄，箭头可能会被截断，你可以在绘制前判断列宽是否足够（比如Rect.Right - Rect.Left < 30时就不画箭头），或者调整文本的绘制范围——不过一般情况下，只要用户不是把列拉到特别窄，这个问题不会太明显。

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