Форум: "Начинающим";
Текущий архив: 2005.12.04;
Скачать: [xml.tar.bz2];

Вниз

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

← →
Officeman   (2005-11-18 10:39) [0]

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

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

ListView2.items.Add();

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

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

---

← →
SergGG   (2005-11-18 12:30) [1]

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


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;


---

← →
Officeman   (2005-11-18 13:34) [2]

Спасибо.

---

← →
Officeman   (2005-11-18 14:32) [3]

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


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


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

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

---

← →
SergGG ©   (2005-11-18 15:00) [4]

А щас:


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;



---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2005.12.04;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.035 c