本文整理自网络,侵删。
以下代码实现的功能是:点击TListView的某一列列头,就按该列对数据进行排序。
1. 添加TListView控件的OnColumnClick事件响应代码:
procedure TForm1.ListView1ColumnClick(Sender: TObject;
Column: TListColumn);
begin
(Sender as TListView).CustomSort(nil, Column.Index);
end;
2. 添加TListView控件的OnCompare事件响应代码:
procedure TForm1.ListView1Compare(Sender: TObject; Item1, Item2: TListItem;
Data: Integer; var Compare: Integer);
begin
if Data = 0 then //按标题列排序
Compare := CompareStr(Item1.Caption, Item2.Caption)
else //按其他列排序
Compare := CompareStr(Item1.SubItems.Strings[Data-1], Item2.SubItems.Strings[Data-1]);
end;
相关阅读 >>
Delphi xe7 新的并行库 system.threading
Delphi unidac 连接mdb access 数据库
Delphi fileopendialog1 多选加载大量文件,不受中文文件名影响
Delphi 解决Delphi indy10下 utf8码转换的问题
Delphi debug模式下可以但是release模式下报错原因之一
更多相关阅读请进入《Delphi》频道 >>