Создать и заполнить ListView

Posted by Chas under Delphi

1. Как сделать несколько колонок (каждая колонка с разным названием)
2. Как пронумеровать колонки автоматически?
3. Как подсчитать строки в sListView?
4. Как сделать чтобы строки автоматически наполнялись с переменной?

XE5

procedure TForm1.FormCreate(Sender: TObject);

var

  i, n: integer;

begin

  with Listview1 do

    begin

      ViewStyle := vsReport;

      for I := 1 to 5 do

        begin

          with Columns.Add do

            begin

              Width := 80;

              Caption := 'Колонка ' + IntToStr(i);

            end;{end with}

        end;{end i}

      for I := 0 to 4 do

        begin

          with Items.Add do

            begin

              Caption := 'Строка ' + IntToStr(i * 5);

              for n := 0 to Columns.Count - 1 do

                SubItems.Add('Строка ' + IntToStr((i * 5) + n + 1));

            end;{end with}

        end;{end i}

      Caption := 'Количество строк ' + IntToStr(Items.Count);

    end;{end with}

end;

тема на форуме

Похожие статьи

• Заполнение ListView из XAML
• Задать HotKey в ListView на Delphi
• Сортировка в обе стороны в ListView
• HotKey в ListView через WinAPI
• Загрузка в ListView из ini файла
• Как определить нажатие Item в ListView?
• как можно выгрузить только одну колонку с ListView?
• ListView для отображения информации о файлах
• Загрузить в ListView список файлов и директорий
• Как в ListView сделать нумерацию строк?