リストビューにソートの三角矢印を表示する
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); //0番目の項目を編集する
Item.fmt := Item.fmt and not (HDF_SORTUP or HDF_SORTDOWN);
Item.fmt := Item.fmt or HDF_SORTUP;//上矢印
// Item.fmt := Item.fmt or HDF_SORTDOWN;//下矢印
Header_SetItem(Header, 0, Item); //0番目の項目を編集する
end;