| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как из одного ListView передать значение в другой ListView1 [D6, 2000]

Officeman ©   (2005-11-18 10:39:00) 

Как из одного ListView передать значение в другой ListView1

Надо из текущей позиции(колонка 28), передать значение в LIstView2
добавив при этом новую позицию.

ListView2.items.Add();

ListView2.Columns.Items[29].Caption:=ListView1.Selected.SubItems[28];

выдаётся ошибка. ошибка добавдения.

---

SergGG   (2005-11-18 15:00:00) [1]

А щас:


var i:integer;
begin
for i:=0 to 28 do
begin
 ListView1.Items.Add.Caption:=FloatToStr(i);
 ListView1.Items.item[i].SubItems.Insert(0,'a'+FloatToStr(i));
 ListView1.Items.item[i].SubItems.Insert(1,'b'+FloatToStr(i));
 ListView2.Items.Add.Caption:='';
end;

end;

procedure TForm1.ListView1Click(Sender: TObject);
begin
 ListView2.Items.Add();
 ListView2.Items.item[ListView2.Items.Count-1].Caption:=
 ListView1.Items.item[ListView1.itemindex].Caption;

 ListView2.Items.item[ListView2.Items.Count-1].SubItems.Insert(0,ListView1.Items.item[ListView1.itemindex].SubItems.Strin gs[0]);
 ListView2.Items.item[ListView2.Items.Count-1].SubItems.Insert(1,ListView1.Items.item[ListView1.itemindex].SubItems.Strin gs[0]);

end;



---

Officeman   (2005-11-18 14:32:00) [2]

Так работает:


LVu.Items.Add();
LVu.Items.item[(LVu.Items.Count-1)].Caption:=
LV.Items.item[LV.itemindex].Caption;


Но при этом БЕРЁТСЯ только Первый Столбец, как получить из других стоблоц???

НУжно ДАННЫЕ всех столбцов "одной позиции", из TListView "LV", перенести в LVu

---

Officeman   (2005-11-18 13:34:00) [3]

Спасибо.

---

SergGG   (2005-11-18 12:30:00) [4]

Попробуй Это, у меня получается:


procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
for i:=0 to 28 do
begin
 ListView1.Items.Add.Caption:=FloatToStr(i);
 ListView2.Items.Add.Caption:='';
end;

end;

procedure TForm1.ListView1Click(Sender: TObject);
begin
ListView2.Items.Add.Caption:='0';
ListView2.Items.item[ListView2.Items.Count-1].Caption:=
ListView1.Items.item[ListView1.itemindex].Caption;

end;


---

Наверх