Главная страница
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.48 MB
Время: 0.032 c
1-1081951805
Plt
2004-04-14 18:10
2004.05.02
Как не допустить повторную загрузку формы?


14-1081598796
Piter
2004-04-10 16:06
2004.05.02
Регистрация нового домена


1-1081899784
Ivanov
2004-04-14 03:43
2004.05.02
Как сменить иконку у .exe-файла


4-1078926004
nuflin
2004-03-10 16:40
2004.05.02
Приведите пример с использовнием функции VirtualQueryEx() ///////


7-1078480227
Вадим
2004-03-05 12:50
2004.05.02
"Мой компьютер"