Вниз
Скачать: 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 вся ветка

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



Память: 0.46 MB
Время: -0.977 c
14-1081302601
Думкин
2004-04-07 05:50
2004.05.02
С днем рождения! 7 апреля.


1-1081848210
Cyxapeff
2004-04-13 13:23
2004.05.02
FindText


14-1081242454
serge35
2004-04-06 13:07
2004.05.02
Наконец-то азиаты решили написать операционку


6-1078175716
ser_ega
2004-03-02 00:15
2004.05.02
Explorer


6-1078854133
Rezya
2004-03-09 20:42
2004.05.02
Сканирование портов




   Наверх