listview и колонки.

[blackstersl]

Привет всем. Вопрос:нажимаешь на кнопку и во вторую колонку listview добавляется "Привет", нажимаешь на вторую кнопку в третью колонку добавляется "Как дела".... . Как это сделать.Спасибо.

[Stilet]

Вкратце:

var itm:TListItem;
itm:=Form1.ListView1.Items.Add;
 itm.Caption:=TimeToStr(time);

//Теперь добавляем "колонки" к этой записи

 itm.SubItems.Add(own);
 itm.SubItems.Add(q.FullFileName);
 itm.SubItems.Add(q.attrstr);

Смысл ясен

[inndim]

Ставишь стиль vsReport, в инспекторе объектов кликаешь правой кнопкой мышки и добавляешь нужное количество колонок, а в onClick кнопок пишешь:

procedure TForm1.Button1Click(Sender: TObject);
begin
 ListView1.AddItem('Первая колонка', nil);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ListView1.Items.Item[ListView1.Items.Count-1].SubItems.Add('Вторая колонка');
//изменить текст можно так
//ListView1.Items.Item[0].SubItems[0]:='Другое название';;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
ListView1.Items.Item[ListView1.Items.Count-1].SubItems.Add('Третья колонка');
//изменить текст можно так
//ListView1.Items.Item[0].SubItems[1]:='Другое название';;
end;

[blackstersl]

всем спасибо за ответ