ListView点击头排序

最新推荐文章于 2017-09-21 15:22:22 发布

PPL1998

最新推荐文章于 2017-09-21 15:22:22 发布

阅读量1k

点赞数

分类专栏： BCB Delphi

BCB 同时被 2 个专栏收录

31 篇文章 0 订阅

订阅专栏

Delphi

19 篇文章 0 订阅

订阅专栏

int sort=0;
bool column[20];
// 全局变量定义

//------------------------------------------------------------------

void __fastcall TForm1::ListView1Compare(TObject *Sender, TListItem *Item1, TListItem *Item2, int Data, int &Compare)
{
if (column[sort]==true)
     {
      if (sort==0)
          Compare=CompareText(Item1->Caption,Item2->Caption);
      else
          Compare=CompareText(Item1->SubItems->Strings[sort-1],Item2->SubItems->Strings[sort-1]);
     }
else
     {
      if (sort==0)
          Compare=CompareText(Item2->Caption,Item1->Caption);
      else
          Compare=CompareText(Item2->SubItems->Strings[sort-1],Item1->SubItems->Strings[sort-1]);
     }
}

//------------------------------------------------------------------

void __fastcall TForm1::ListView1ColumnClick(TObject *Sender,
       TListColumn *Column)
{
   sort=Column->Index;
   ((TCustomListView *)Sender)->AlphaSort();
   if (column[sort]==false) column[sort]=true;
   else column[sort]=false;
}
//------------------------------------------------------------------

ListView_SortItems 具体使用在MSDN中自已看,这只是一个宏定义
其实它就是一个SendMessage(hwnd, LVM_SORTITEMS, lParamSort, pfnCompare)
三句代码搞你。这是最简单最快的。