困绕几天的排序问题``(50)

[red]5个按纽对应ListView里面的5个列````点击按纽实现对应列的排序````` [/red] 这个该怎么实现`````` Delphi帮助里面只有实现一个列的排序问题````我按照上面的写的代码可以实现排序```但是都是实现一个的排序````点了 一个按纽实现一列的排序之后```其他4个按纽点击就实现不了了`````

网上找了一下，发现 有这个事件 。这样看，应该好解决吧 ListView1.OnCompare event procedure TForm1.ListView1Compare(Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer); begin if Data = -1 then Compare := AnsiCompareText(Item1.Caption, Item2.Caption) else Compare := AnsiCompareText(Item1.SubItems[Data], Item2.SubItems[Data]); end; ListView1 ColumnClick event procedure TForm1.ListView1ColumnClick(Sender: TObject; Column: TListColumn); begin ListView1.CustomSort(nil, Column.Index - 1); end;