Получить все выделенные элементы TListView

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

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

procedure TForm1.Button1Click(Sender: TObject);
 var
   i: integer;
 begin
   with Listview1 do
     // MultiSelect := True; 
    // ViewStyle := vsReport; 
    for i := 0 to Items.Count - 1 do
       if Items[i].Selected then
         Items[i].Caption := Items[i].Caption + ' - Selected!';
 end;

Here's the translation of the provided Delphi code snippet into Russian:

Код-снippet для Delphi, предназначенный для выбора всех элементов в контроле TListView при клике ассоциированной кнопки. Вот как это работает:

1. Событийный обработчик Button1Click вызывается при клике кнопки с надписью "Button1".
2. В этом процедуре код доступ к объекту Listview1 и устанавливает свойство MultiSelect в значение True, позволяя одновременно выбирать несколько элементов. Хотя это свойство комментировано в предоставленном коде, установка MultiSelect в True необходима для выбора нескольких элементов.
3. Следующая строка кода устанавливает стиль просмотра TListView в vsReport. Это определяет, как будет выглядеть и функционировать список. В этом случае стиль отчета показывает каждый элемент как отдельную строку с собственным заголовком.
4. Затем цикл iterates over все элементы в списке view используя индекс (i) и проверяет, является ли каждый элемент выбранным. Условие для выбора - Items[i].Selected, которое возвращает булевое значение, указывающее, является ли элемент текущим образом выбранным.
5. Если элемент найден выбранным, его заголовок модифицируется добавлением ' - Selected!' к нему с помощью строки Items[i].Caption := Items[i].Caption + ' - Selected!';.

Однако, если вы хотите получить все выделенные или выбранные элементы из контрола TListView без изменения их заголовков, вы можете создать пустой список и затем iterates over элементы в оригинальном списке view. Вот как:

procedure TForm1.GetSelectedItems(ListView: TListView);
var
  i: integer;
begin
  Result := TObjectList<TListItem>.Create;

  for i := 0 to ListView.Items.Count - 1 do
    if ListView.Items[i].Selected then
      Result.Add(ListView.Items[i]);
end;

Чтобы использовать эту процедуру, вам нужно сначала создать экземпляр TObjectList, а затем вызвать метод GetSelectedItems с вашим объектом TListView в качестве параметра. Выбранные элементы будут храниться в возвращенном списке.

Вот пример использования:

var
  SelectedItems: TObjectList<TListItem>;
begin
  SelectedItems := GetSelectedItems(ListView1);

  for i := 0 to SelectedItems.Count - 1 do
    ShowMessage(SelectedItems[i].Caption);
end;

В этом примере процедура GetSelectedItems вызывается с параметром ListView1. Возвращенный список выбранных элементов затем iterates over и каждый элемент'с заголовок отображается в сообщении с помощью функции ShowMessage.

В статье описывается процедура, которая позволяет получить все выделенные элементы в TListView и изменить их caption добавлением текста "- Selected!".

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

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

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