![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
не могу справиться с ListView [D7, XP]
Perf2k2 © (2006-06-08 10:29:00)Всем привет. Опять я :)
Имеется LisView. Заполненный из базы (vsReport). Нужно сделать так, чтобы при выборе определенной записи, ее данные появлялись в 4-х лейблах. Пытаюсь так:
procedure TfrmBidEdit.LVContactsSelectItem(Sender: TObject;
Item: TListItem; Selected: Boolean);
begin
lblContDate.Caption := Item.SubItems[1].Text;
end;
Но не получается :( То есть значения больше никак и не достать оттуда? Ка-же тогда к определенному SubItem'у обращаться? Почитал хелп, ничего не нашел...
Perf2k2 (2006-06-08 11:28:00) [1]Спасибо!
ЮЮ (2006-06-08 11:11:00) [2]>выдает ошибку "record, object or class type required".
Издеваешься? Ошибки компиляции уж самому надо научиться искать:
TListItem.SubItems: TStrings;
Следовательно
blContDate.Caption := Item. SubItems[0];
Perf2k2 (2006-06-08 11:04:00) [3]Все-равно не канает - на строке
lblContDate.Caption := Item.SubItems[0].Text;выдает ошибку "record, object or class type required".
ЮЮ (2006-06-08 10:54:00) [4]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 := '';