Главная страница
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.044 c
6-1078345016
NightBlaze
2004-03-03 23:16
2004.05.02
net send


14-1081488459
Паниковский
2004-04-09 09:27
2004.05.02
Эргономика


11-1065608167
Stargazer
2003-10-08 14:16
2004.05.02
JpegObj & FPC


1-1082025540
Ivolg
2004-04-15 14:39
2004.05.02
Канва


14-1081695483
Ученик
2004-04-11 18:58
2004.05.02
Задача!