Реализация одновыборочного режима для списка с чекбоксами в Delphi FMX.ListViewCheckList

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

Реализация одновыборочного режима для списка с чекбоксами в Delphi FMX.ListViewCheckList

Вопрос новичка, связанный с использованием компонента FMX.ListViewCheckList в Delphi, заключается в необходимости реализации одновыборочного режима для чекбоксов. Это означает, что при выборе одного элемента списка, все остальные элементы должны быть сняты с выбора. В контексте данного вопроса, представлен пример кода, который, по замыслу автора, должен был реализовать указанную функциональность, но по каким-то причинам не работал корректно.

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

Пользователь использует код из примера FMX.ListViewCheckList Sample для отображения чекбокса у выбранного элемента списка. Однако, он хочет, чтобы был доступен только один выбранный элемент с чекбоксом одновременно, и при выборе другого элемента, предыдущий должен сниматься с выбора. Представленный в вопросе код не решает эту задачу.

Подтвержденный ответ

Решение проблемы состоит в сохранении информации о выбранном элементе и изменении состояния чекбоксов при каждом новом выборе. В коде процедуры ListView1ItemClick необходимо сохранить ссылку на выбранный элемент и сбросить чекбокс у предыдущего выбранного элемента, если таковой имеется. Также важно сохранить статус чекбокса при обновлении списка, например, при его изменении размера. Это достигается добавлением проверки на наличие выбранного элемента в процедуре ListView1UpdateObjects.

CheckedItem: TListViewItem; // Объявлено как приватное поле в форме.

procedure TMainForm.ListView1ItemClick(const Sender: TObject; const AItem: TListViewItem);
begin
  if Assigned(CheckedItem) then begin // Если был выбран предыдущий элемент, снимаем с него чекбокс.
    CheckedItem.Objects.AccessoryObject.Visible := False;
    FChecked.Remove(CheckedItem.Index);
  end;
  if not AItem.Objects.AccessoryObject.Visible then begin
    AItem.Objects.AccessoryObject.Visible := True;
    FChecked.Add(AItem.Index);
    CheckedItem := AItem; // Сохраняем ссылку на текущий выбранный элемент.
  end else begin
    AItem.Objects.AccessoryObject.Visible := False;
    FChecked.Remove(AItem.Index);
    CheckedItem := nil; // Сброс ссылки, если чекбокс снимается.
  end;
end;

procedure TMainForm.ListView1UpdateObjects(const Sender: TObject; const AItem: TListViewItem);
begin
  // Восстанавливаем статус чекбокса при обновлении списка.
  if Assigned(CheckedItem) and FChecked.Contains(CheckedItem.Index) then
    CheckedItem.Objects.AccessoryObject.Visible := True;
end;

Комментарии

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

Альтернативный ответ

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

В данной статье был представлен пример кода на Object Pascal (Delphi), который решает поставленную задачу по реализации одновыборочного режима для списка с чекбоксами в компоненте FMX.ListViewCheckList.

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

Контекст: Реализация одновыборочного режима для списка с чекбоксами в Delphi FMX.ListViewCheckList, где при выборе одного элемента все остальные должны быть сняты с выбора.

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

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

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