请问listview的排序问题!!!!!!!!!!????????????????????????????

[autocar]

请问listview的排序问题!!!!!!!!!!????????????????????????????


listview的viewstyle属性设为vsReport,请问怎样可以点击一下某个column就根据这个column的的子项

目进行升序或降序序排序

vb6.0是这样做的,代码如下:

private sub listview_columnclick(byval columnheader as columnheader)

listview.sortorder=0 '设为升序

listview.sortkey= columnheader.index -1 ' 设置点击的column为排序的依据

listview.sorted=true '开始排序


end sub


请问在delphi中的代码应该怎样写 ???????????

感激万分!!!
--

[cow8063]

像资源管理器那样对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 );