TListView & Columns

← →
Артем (2003-12-05 14:14) [0]

Уважаемые Мастера!Подскажите, пожалуйста, как сделать, чтобы при нажатии на одну из колонок ListView производилась сортировка именно по этой колонке? Как определить по какой колонке был клик?
Заранее всем благодарен.

← →
mRodion © (2003-12-05 14:20) [1]

Обрабытывай OnColumnClick.
Для сортировки придется поставить SortType = stData, и определить событие OnCompare, в котором ручками сравниваешь два итема из расчета того, по какому полю нужно сортировать

← →
Семен Сорокин © (2003-12-05 14:44) [2]

2 обработчика:
procedure TfmFlights.lvColumnClick(Sender: TObject; Column: TListColumn); begin TListView(Sender).Tag := Column.Index; TListView(Sender).AlphaSort end; procedure TfmFlights.lvCompare(Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer); begin with TListView(Sender) do if Tag = 0 then Compare := CompareText(Item1.Caption, Item2.Caption) else Compare := CompareText(Item1.SubItems[Tag-1], Item2.SubItems[Tag-1]) end;

← →
Артем (2003-12-05 17:01) [3]

Всем спасибо!

TListView & Columns Найти похожие ветки