ListView

← →
Ivolg (2004-11-20 19:31) [0]

Драсти всем!! Как можно выделив Item, ListView"a Получить Caption и Text выделенного имени!!!ПЛИЗЗ ХЕЛП!!!!!! СПАСИБО!!!!!!

← →
Ivolg (2004-11-20 19:32) [1]

Драсти всем!! Как можно выделив Item, ListView"a Получить Caption и Text выделенного итема!!!ПЛИЗЗ ХЕЛП!!!!!! СПАСИБО!!!!!!

← →
begin...end © (2004-11-20 20:12) [2]

Здарова!!!

Зацени ListView.Selected.Caption !

Усё буит пучком!

Бывай!

← →
Ivolg (2004-11-20 21:15) [3]

begin...end

ПРИВЕТ!!!

Вот я так пишу:

if lv.Seleced then
edit1.text:=lv.Items.SubItem.caption;
edit2.text:=lv.Items.SubItem.text

И когда я нажимаю не на Item То происходит ошибка!!!
КАК БЫТЬ???

← →
begin...end © (2004-11-20 21:21) [4]

> [3] Ivolg (20.11.04 21:15)

> Вот я так пишу:
>
> if lv.Seleced then

Не можыт быть ты чо-то путаешь еси так напысать то ваще даже не скампилируется
Поподробнее задачу давай как пишешь куда пишешь зачем пишешь ну и т.д. а то так не смогу помочь

← →
Ivolg (2004-11-20 21:24) [5]

Просто я с компонентам этим вообщедела не имел!!! Прям тут написал!! Вото нормальный код:

var
it:TListItem;
begin
if lv.Selected.Index>0 then begin
it:=lv.Items.Add;
edit1.text:=it.Caption;
edit2.text:=it.SubItems.Text;
end;

← →
begin...end © (2004-11-20 21:28) [6]

> [5] Ivolg (20.11.04 21:24)

> Просто я с компонентам этим вообщедела не имел!!!

Да я вижу паря не расстраивайся у всех ето бывает в первый раз

> var
> it:TListItem;
> begin
> if lv.Selected.Index>0 then begin
> it:=lv.Items.Add;
> edit1.text:=it.Caption;
> edit2.text:=it.SubItems.Text;
> end;

Брателло ну во-первых тут опять ошибка и не скомпилируется а во-вторых так я и не понял чего ты хочишь сделать и зачем тебе ваще Text чегой-то не пойму поподробнее давай чего надо то

← →
Ivolg (2004-11-20 21:35) [7]

Имеется 2 Edit"a! В первом находится IP дресс "172.17.1.58", а во втором ник "Neo", когда я нажымаю кнопку "Добавить" то эта запись добавляется в ListView! А надо чтобы по нажатию на ListView, добавлялся выделенный Item в едиты (Обратно)!!!

← →
begin...end © (2004-11-20 21:49) [8]

> [7] Ivolg (20.11.04 21:35)

По нажатию кнопки "Добавить":

begin
with ListView.Items.Add do
begin
Caption := Edit1.Text;
SubItems[0] := Edit2.Text
end
end.

В обработчик TListView.OnClick:

begin
with ListView do
begin
if Assigned(Selected) then
begin
Edit1.Text := Selected.Caption;
Edit2.Text := Selected.SubItems[0];
Items[ItemIndex].Delete
end
end
end.

← →
Ivolg (2004-11-20 22:03) [9]

Спасибо!!!!БОЛЬШОЕ!!! а ка сделать чтобы не только текст 0 тема показывал!!!

← →
begin...end © (2004-11-20 22:07) [10]

> [9] Ivolg (20.11.04 22:03)

слушай ну опять ты мне сначала скажи на каком ты языке гаваришь патом я вазьму словарь так уж и быть постараюсь перевести

← →
begin...end © (2004-11-20 22:14) [11]

> Ivolg

карочи не могу больше терпетъ спать хочу пошёл баиньки

дэнги будут - заходи

← →
Ivolg (2004-11-21 12:37) [12]

Вот в ListView Item"ов ведь несколько добавленно, а у тебя в примере, Получаю только Caption, и Text 0 Item"a!!

← →
Ivolg (2004-11-21 12:39) [13]

А если колонок ListView 3 Или больше, то как Текст и Caption Каждого Итема и колонки выводить??

> [12] Ivolg (21.11.04 12:37)
> [13] Ivolg (21.11.04 12:39)

SubItems[1], SubItems[2] и т.д.

procedure TForm1.ListView1Click(Sender: TObject); begin if ListView1.ItemIndex <> -1 then begin Edit1.Text := ListView1.Items[ListView1.ItemIndex].Caption; Edit2.Text := ListView1.Items[ListView1.ItemIndex].SubItems[0]; Edit3.Text := ListView1.Items[ListView1.ItemIndex].SubItems[1]; end; end;

← →
Ivolg (2004-11-23 11:13) [16]

СПАСИБО!!!!!!!!!!БОЛЬШОЕ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

А ка сохранить содержимое ListView потом загрузить это содержимое!!

http://www.ucad.pisem.net/delphi_components/ssklistview.zip

ListView Найти похожие ветки