Определить, по какой колонке в TListView был произведен щелчок

Delphi , Компоненты и Классы , TListView

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

procedure TFormMain.Listview1ColumnClick(Sender: TObject; Column: TListColumn);
 var
   ColumnNr: Integer;
 begin
   ColumnNr := Listview1.Column[Column.Index].Index;
   ShowMessage(IntToStr(ColumnNr));
 end;

Программный код на языке Delphi, который обрабатывает событие OnColumnClick для контрола TListView, именуемого Listview1. Это событие генерируется при клике на заголовок столбца в списке.

Процедура принимает два параметра: Sender (обычно объект, который вызвал событие) и Column (объект TListColumn, представляющий собой столбец, который был кликнут).

В процедуре сначала присваивается индекс кликнутого столбца локальной переменной ColumnNr. Это делается путём доступа к свойству Index объекта TListColumn, которое возвращает нулевую-основанную индексацию столбца в коллекции столбцов списка.

Наконец, код отображает сообщение с индексом кликнутого столбца в виде строки. Это может быть полезно для отладки или логирования целей.

Пример вывода, если кликнуть на первый столбец:

1

Если кликнуть на второй столбец:

2

И т.д.

Обратите внимание, что эта процедура предполагает, что событие OnColumnClick правильно настроено в дизайнере формы, и что список имеет хотя бы один определенный столбец. Если список пуст или не имеет столбцов, этот код не будет работать так, как ожидалось.

Процедура TFormMain.Listview1ColumnClick определяет, по какой колонке в TListView был произведен щелчок, выводя индекс этой колонки в сообщении.

Комментарии и вопросы

:: Главная :: TListView ::