ListView如何排序

像资源管理器那样对Subitem的内容进行排序。
最好自己来控制排序，如下所示：
function CustomSortProc( Item1, Item2 : TListItem; lParam : LongInt ) : Integer; stdcall;
begin
if lParam >= 0 then //lParam中保存的是SubItem的Index
begin
result := -CompareText(Item1.SubItems.Strings[lParam],
Item1.SubItems.Strings[lParam] );
end else
result := 0;
end;
在ListView的ColumnClick事件响应方法中输入
CustomSort(@CustomSortProc, Column.Index );