AdvListViewのソートを使う方法

実装を何度も忘れたのでメモします。
AdvListViewでソートを使うためには以下の設定が必要です。

• SortShow := True を設定
• AdvListViewの各カラムにTagの番号を設定します。
• イベント OnColumnClick のハンドラを定義しその中で
• SortColumnをカラムのタグから指定

view plainprint?

1. procedure TForm1.AdvListView1ColumnClick(Sender: TObject; Column: TListColumn);  
2. var  
3.   tag: integer;  
4. begin  
5.   
6.   tag := Column.Tag;  
7.   AdvListView1.SortColumn := tag;  
8.   
9. end;  

procedure TForm1.AdvListView1ColumnClick(Sender: TObject; Column: TListColumn);
var
  tag: integer;
begin

  tag := Column.Tag;
  AdvListView1.SortColumn := tag;

end;

便利！