Исправление поведения множественного выбора в `TListView` после перемещения элементов

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

Исправление поведения множественного выбора в TListView после перемещения элементов

При работе с виртуальным TListView в Delphi может возникнуть проблема, когда после перемещения элементов множественный выбор начинает вести себя некорректно. Проблема заключается в том, что, несмотря на то что выбранный элемент изменяется, начальная точка множественного выбора остается прежней, что приводит к нежелательному поведению при попытке выбрать несколько элементов, удерживая клавишу Shift.

Описание проблемы

Когда происходит перемещение элемента в TListView, который находится в виртуальном режиме, пользователь хочет, чтобы выделение перемещалось вместе с элементом. Это достигается путем очистки текущего выделения и установки свойства Selected для нужного элемента. Однако после такого перемещения, при попытке выбрать несколько элементов, удерживая Shift, список ведет себя так, как будто началом множественного выбора является элемент, который был выделен до перемещения, а не тот, на который был сделан новый выбор.

Попытки симуляции клика мыши приводят к ошибке доступа, что указывает на неправильный подход к решению проблемы.

Пример кода, вызывающего ошибку

Вот пример кода, который пытается симулировать клик мыши, но приводит к сбою:

procedure TForm1.ListDragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  List.Perform(WM_LBUTTONDOWN, MK_LBUTTON, $002E001E);
  Sleep(10);
  List.Perform(WM_LBUTTONUP, 0, $002E001E);
end;

Подтвержденное решение

Чтобы решить проблему, после выбора нового элемента необходимо установить его в качестве фокусируемого, а также отправить TListView сообщение LVM_SETSELECTIONMARK. Это сообщение устанавливает индекс элемента, с которого начинается множественный выбор.

Вот пример кода, который исправляет поведение множественного выбора после перемещения элементов:

procedure TForm1.ListDragDrop(Sender, Source: TObject; X, Y: Integer);
var
  Item: TListItem;
begin
  ...
  Item := ...; // здесь должен быть код, получающий элемент после перемещения...
  Item.Selected := True;
  Item.Focused := True;
  List.Perform(LVM_SETSELECTIONMARK, 0, Item.Index);
  List.Invalidate;
  ...
end;

Заключение

Использование сообщения LVM_SETSELECTIONMARK после перемещения элемента в TListView позволяет корректно установить начальный элемент для множественного выбора, что решает описанную проблему. Это важно для обеспечения правильного поведения компонента при работе с множественным выбором элементов.

Создано по материалам из источника по ссылке.

**Контекст**: При работе с виртуальным `TListView` в Delphi после перемещения элементов множественный выбор некорректно обновляет начальную точку выбора, что требует коррекции с помощью сообщения `LVM_SETSELECTIONMARK`.

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

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

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