delphi - 如何在 TListView 列上显示排序箭头？

Question

Windows 资源管理器有一个箭头，指示 ListView (报告 View 样式)按哪一列以及按哪个方向排序(ASC 与 DESC)。

是否可以在 Delphi 中的 TListView 上显示这样的排序指示箭头？

Answer 1

下面是一些简单的代码，用于将标题列标记为升序排序:

uses
  Winapi.CommCtrl;

var
  Header: HWND;
  Item: THDItem;
begin
  Header := ListView_GetHeader(ListView1.Handle);
  ZeroMemory(@Item, SizeOf(Item));
  Item.Mask := HDI_FORMAT;
  Header_GetItem(Header, 0, Item);
  Item.fmt := Item.fmt and not (HDF_SORTUP or HDF_SORTDOWN);//remove both flags
  Item.fmt := Item.fmt or HDF_SORTUP;//include the sort ascending flag
  Header_SetItem(Header, 0, Item);
end;

为了简单起见，我省略了错误检查。如果您想要相反方向的箭头，我相信您可以弄清楚如何交换逻辑。

MSDN 的关键主题是 HDITEM结构体。