Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.11.2017, 17:20   #11
Артист
Пользователь
 
Регистрация: 14.10.2017
Сообщений: 35
По умолчанию

Что-то ничего не работает:
Код:
procedure TForm1.Button1OnClick(Sender: TObject);
var
  ListItem: TListItem;
begin
  //if ListGroups = nil then ListGroups := ListView1.Groups.Add;

  ListItem := ListView1.Items.Add;
  ListItem.Caption := 'Итем №' + IntToStr(ListItem.Index); // Первая колонка
end;

procedure TForm1.Button2OnClick(Sender: TObject);
begin
  ListView1.Groups.Add;
end;
Артист вне форума Ответить с цитированием
Старый 22.11.2017, 17:44   #12
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

я ни разу не видел Groups в TListView, но что-то мне подсказывает, что Вы их добавляете неверно.

согласно интернет-ресурсам добавление группы должно выглядеть примерно так:
Код:
procedure TMyForm.FormCreate(Sender: TObject);
var
  Group: TListGroup;
  Item: TListItem;
  s1, s2: string;
begin
  ListView1.ViewStyle := vsReport;
  ListView1.GroupView := True;
  ListView1.Columns.Add.Caption := 'My column';
  Group := ListView1.Groups.Add;
  Group.Header := 'My header';
  Group.GroupID := 0;
  Item := ListView1.Items.Add;
  Item.GroupID := 0;
  Item.Caption := 'My item';
или пример на нашем форуму - http://www.programmersforum.ru/showthread.php?t=206757

а ещё можно посмотреть на офф.сайте пример - тыц

Последний раз редактировалось Serge_Bliznykov; 22.11.2017 в 17:47.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 22.11.2017, 19:03   #13
Артист
Пользователь
 
Регистрация: 14.10.2017
Сообщений: 35
По умолчанию

Во, так работает:
Код:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    ListView1: TListView;
    Button1: TButton;
    Button2: TButton;
    procedure Button1OnClick(Sender: TObject);
    procedure Button2OnClick(Sender: TObject);
  end;

var
  Form1: TForm1;
  ListGroup: TListGroup;
  GroupID: Integer;

implementation

{$R *.dfm}

procedure TForm1.Button1OnClick(Sender: TObject);
var
  ListItem: TListItem;
begin
  if ListGroup = nil then
  begin
    Inc(GroupID);
    ListGroup := ListView1.Groups.Add;
    ListGroup.Header := 'My header';
    ListGroup.GroupID := GroupID;
  end;
  ListItem := ListView1.Items.Add;
  ListItem.GroupID := GroupID;
  ListItem.Caption := 'Итем №' + IntToStr(ListItem.Index); // Первая колонка
end;

procedure TForm1.Button2OnClick(Sender: TObject);
begin
  Inc(GroupID);
  ListGroup := ListView1.Groups.Add;
  ListGroup.Header := 'My header';
  ListGroup.GroupID := GroupID;
end;

end.
Спасибо. ))
Артист вне форума Ответить с цитированием
Старый 22.11.2017, 22:40   #14
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от Артист Посмотреть сообщение
Спасибо. ))
Практически не за что. я только привёл чужой пример.
А дальше Вы самостоятельно прекрасно справились!
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Положение объекта внутри ячейки CSS kronter HTML и CSS 1 09.04.2014 14:27
Положение Div в другом Div bondik HTML и CSS 0 22.10.2013 16:11
Доступ или создание объекта в другом потоке Maks1978 Общие вопросы C/C++ 0 04.10.2012 13:51
Определить положение объекта Deight JavaScript, Ajax 6 25.02.2009 18:11
С помощью методов и свойств объекта осуществляется управление терминалом. Имя (идентификатор) объекта User>lia Общие вопросы Delphi 4 16.01.2009 16:37