TListView点击表头进行排序和显示图标的方法

这种方法是响应了OnColumnClick和OnCompare这两个事件，其中在OnColumnClick中调用TListView中的CustomSort函数，并把此函数的第一个参数设为nil把OnCompare事件激活的。在OnCompare事件中，按照Delphi的例子，调用了CompareText函数进行排序，把CompareText的返回值赋给OnCompare事件函数的Compare参数达到排序的目标。为什么把CompareText的返回值赋给Compare就能达到排序目的我也不是很清楚，但我知道如果把进行升序或倒序的交替，就要把Compare取正数或取负数进行交替就可以了，这一点在代码中有一句：Compare := -Compare;这可以看出来。如果把这一句去去掉，重复点击同一个表头就不能实现升序与降序交换的效果。另外，CompareText是根据字符的大小进行排序的。如果想进行数字的排序，比较的两个数字的长度是一样的才能实现真正的比较。如：想比较2和12的大小就就应该比较02和12的大小，不然就会出现12比2小的情况(载图中的数字21用021表示就是保有证所有数字是三个字符组成）。

我放了一个listview和一个imagelist控件在Form1中imagelist中包含了我要用的图标，并把listview的smallimage和stateimage两个属性和这个imagelist关联起来。代码如下:

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, ImgList; type TForm1 = class(TForm) lv1: TListView; ilElse: TImageList; //图标列表 Button1: TButton; procedure lv1ColumnClick(Sender: TObject; Column: TListColumn); procedure lv1Compare(Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; columnToSort : Integer; //以哪一列为标准进行排序 LastColumn : TListColumn; //最后一次点击的是哪一列 nSortType : Integer; //排序方式0和-1一种是升序一种是降序 implementation {$R *.dfm} procedure TForm1.lv1ColumnClick(Sender: TObject; Column: TListColumn); begin columnToSort := Column.Index; //把要进行排序的列记下来，由Compare函数用 if LastColumn = Column then //如果最后一次点击的列和本次点击的列相同 nSortType := Abs(nSortType -1) //把排序方式反过来 else nSortType := 0; //否则就把排序方式设为零 Column.ImageIndex := nSortType + 1; //设置表头的图标,,这里已经把smallImages 与一个imagelist关联起来了 LastColumn := Column; //记下最后一次点击是哪一列 lv1.CustomSort(nil,nSortType); //此函数中第一个参数如果是nil，就会触发OnCompare事件，在这个事件进行排序处理 end; procedure TForm1.lv1Compare(Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer); var ix : Integer; //把哪个子项传达给compareText函数 begin if columnToSort = 0 then Compare := CompareText(Item1.Caption,Item2.Caption) //如果是第一列，也就是以caption以标准进行排序 else begin ix := columnToSort - 1; Compare := CompareText(Item1.SubItems[ix],Item2.SubItems[ix]); //以某一个子项进行排序 end; if Data <> 0 then //这个Data参数，如果listView中的compare是由 CustomSort函数激活的，Data就是CustomSort中的第二个参数的值，否则就是0 Compare := -compare; //这一句控制了同时点击同一列时进行升序与倒序的变换 end; procedure TForm1.Button1Click(Sender: TObject); var it: TListItem; begin lv1.Items[0].SubItemImages[1] := 1; //设置第一个子项的图标 end; end.

载图如下：