sorytype只是一个简单的属性,在没在太多的要求下,可以设置它节约代码。
更多的排序要用到listview的几个方法和事件。
delphi自带的例子
var ColumnToSort: Integer;
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.ListView1ColumnClick(Sender: TObject;
Column: TListColumn);
begin
ColumnToSort := Column.Index;
(Sender as TCustomListView).AlphaSort;
end;
procedure TForm1.ListView1Compare(Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer);
var
ix: Integer;
begin
if ColumnToSort = 0 then
Compare := CompareText(Item1.Caption,Item2.Caption)
else begin
ix := ColumnToSort - 1;
Compare := CompareText(Item1.SubItems[ix],Item2.SubItems[ix]);
end;
end;
listview还有几个方法和事件,如
customsort