Скачать: CL | DM;

не могу справиться с ListView   Найти похожие ветки 

← →
Perf2k2 ©   (2006-06-08 10:29) [0]

Всем привет. Опять я :)
Имеется LisView. Заполненный из базы (vsReport). Нужно сделать так, чтобы при выборе определенной записи, ее данные появлялись в 4-х лейблах. Пытаюсь так:
procedure TfrmBidEdit.LVContactsSelectItem(Sender: TObject;
 Item: TListItem; Selected: Boolean);
begin

lblContDate.Caption := Item.SubItems[1].Text;

end;
Но не получается :( То есть значения больше никак и не достать оттуда? Ка-же тогда к определенному SubItem"у обращаться? Почитал хелп, ничего не нашел...

---

← →
ЮЮ ©   (2006-06-08 10:54) [1]

type TLVSelectItemEvent = procedure(Sender: TObject; Item: TListItem; Selected: Boolean) of object;

Sender is the list view object in which an item has been selected or unselected.

Item is the item that has been selected or unselected.

Selected is True if the item has been selected; selected is False if the item has been unselected.

If Selected theb
 blContDate.Caption := Item.SubItems[1].Text
else
 blContDate.Caption := "";

---

← →
Perf2k2 ©   (2006-06-08 11:04) [2]

Все-равно не канает - на строке lblContDate.Caption := Item.SubItems[0].Text; выдает ошибку "record, object or class type required".

---

← →
ЮЮ ©   (2006-06-08 11:11) [3]

>выдает ошибку "record, object or class type required".

Издеваешься? Ошибки компиляции уж самому надо научиться искать:

TListItem.SubItems: TStrings;

Следовательно
 blContDate.Caption := Item.SubItems[0];

---

← →
Perf2k2 ©   (2006-06-08 11:28) [4]

Спасибо!

---

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

Скачать: CL | DM;



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