リストビューにソートの三角矢印を表示する

リストビューにソートの三角矢印を表示する

listview1

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;

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください