Главная страница
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.036 c
14-1081602499
ss300
2004-04-10 17:08
2004.05.02
InstallShield for Delphi


1-1081856491
Xobbit
2004-04-13 15:41
2004.05.02
MDIForm and MDIChild


3-1081268718
Dimedrol
2004-04-06 20:25
2004.05.02
FireBird ODBC export


3-1081184519
Floppy
2004-04-05 21:01
2004.05.02
CompactDatabase


1-1081922727
rosl
2004-04-14 10:05
2004.05.02
разноцветный edit