Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.05.02;
Скачать: CL | DM;

Вниз

Список выделенных компонентов в Tlistview   Найти похожие ветки 

 
bear9 ©   (2004-04-15 07:50) [0]

Прошу извенения за глупый вопрос, но не смог найти на него ответа :(
Как получить список элементов выделенных в компоненте tlistview при включенном multiselect.
Имеется ввиду когда выбрано несколько элементов.
Если не затруднит, дайте пример кода.
Заранее спасибо.


 
ЮЮ ©   (2004-04-15 08:10) [1]

Specifies the number of selected items in the list view.

property SelCount: Integer;
Всё есть в Help-е:

TCustomListView.SelCount

Description

Read SelCount to determine the number of items that are currently selected. When SelCount is 1, use the Selected property to access the selected item. To locate the selected items when SelCount is greater than one, check the Selected property of the list items, beginning with the item specified by the Selected property.

Note: SelCount can only exceed 1 if the MultiSelect property is True.


 
miwa ©   (2004-04-15 08:39) [2]

И еще свойство Selected.


 
bear9 ©   (2004-04-15 09:11) [3]

а нельзя на русском языке?


 
ЮЮ ©   (2004-04-15 09:26) [4]

Прочтите свойсто ВыбКоличество, чтобы определить количество выбранных в настоящий момент элементов. Когда ВыбКоличество равно 1, используйте свойство Выбранный для доступа к выбранному элементу. Для доступа к выбранным элементам в случае, когда ВыбКоличество больше одного, проыерьте свойсво Выбранный элементов списка, начиная с элемента, определяемого свойством Выбранный.

if ListView.SelCount = 0 then
 Caption := ""
else
 Caption := IntToStr(ListView.Selected);
if ListView.SelCount > 1 then
 for i := ListView.Selected + 1 to ListView.Count - 1 do
   if ListView.Items[i].Selected then Caption := Caption + ", " + IntToStr(i);


 
Sha ©   (2004-04-15 09:34) [5]

:)



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

Текущий архив: 2004.05.02;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.059 c
1-1081762062
Bulgar
2004-04-12 13:27
2004.05.02
Создание компонента в Delphi 6


14-1081513957
Rouse_
2004-04-09 16:32
2004.05.02
Пейджерные перлы. :)))


1-1082023145
Cosinus
2004-04-15 13:59
2004.05.02
Принцип работы c TBitMap ...


7-1079177964
Evgeniy_K
2004-03-13 14:39
2004.05.02
Рисуем точку на мониторе


3-1080999487
Nescio
2004-04-03 17:38
2004.05.02
Изменение имени и типа поля