Отправляет email-рассылки с помощью сервиса Sendsay

Изучение Delphi

Подписаться Бесплатная новостная рассылка Подписчиков 45 RSS
←   Июль 2003   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Открыта: 01-06-2003

Автор
Артур

Статистика

45 подписчиков
0 за неделю
←   Все выпуски   →

Изучение Delphi


Информационный Канал Subscribe.Ru
Изучение Delphi

Delphi для всех!

Здравствуйте дорогие подписчики.

Сегодня на этом уроке мы начнём изучение компоненты ListBox, CheckBox, ValueListEditor, ComboBox, ComboboBox.

Компоненты ListBox и CheckListBox отображают списки строк и позволяют пользователю выбрать в них нужную строку. Основное свойство обоих компонентов, содержащее список строк,-Items, имеющее рассмотренный ранее тип TString. 

В компоненте ListBox имеется свойство MultiSelect, разрещающее пользователю множественный выбор в списке. Если MultiSelect=false, то пользователь может выбрать только один элемент списка. В этом случае можно узнать индекс выбранной строки из свойства ItemIndex, доступно только во время выполнения. Если ни одна строка не выбрана, то ItemIndex=-1.

Например, следующий код проверяет выбор пользователя. Если один из элементов списка выбран, то появляется сообщение вида "Вы не сделали свой выбор ...:...", где вместо первого многоточия отображается номер выбранной строки, а вместо второго многоточия - текст выбранной строки.

with (Sender as TCustomListBox) do

begin

if ItemIndex<0

then ShowMessage ('Вы не сделали свой выбор')

else ShowMessage ('Ваш выбор'+IntToStr(ItemsIndex+1)+';'+Items.Strings[ItemIndex]);

end;

Начальное значение ItemsIndex невозможно задать во время проектирования. По умолчанию ItemsIndex=-1. Это означает, что ни один элемент списка не выбран. Если вы хотите задать этому свойству какое-то другое значение, т.е. установить выбор по умолчанию, который будет показан в момент начала работы приложения, то сделать это можно, например, в обработчике события OnCreate формы, введя в него оператор вида

ListBox1.ItemIndex:=0;

Если допускается множественный выбор (MultiSelect=true), то значение ItemIndex соответствует тому элементу списка, который находится в фокусе. При множественном выборе проверить, выбран ли данный элемент, можно проверив свойство  Selected[Index:Integer] типа Boolean. Например, следующий код отображает сообщение вида  "Выбрана строка...: ..." 

for i:=0 to ListBox1.Items.Count-1 do

if (ListBox1.Selected[i])

then

ShowMessage('Выбрана строка'+IntToStr(i+1)+':'+ListBox1.Items.Strings[i]);

Продолжение следует....................

Хорошего настроения.

С уважением ведущий рассылки, Артур.

Желаю удачи.

 Архив рассылки находится здесь http://subscribe.ru/archive/comp.soft.prog.456/

 

Пишите свои статьи, предложения, вопросы ,Ваш Артур- mailto: hp@ufacom.ru

Пока!

 Подпишите своих друзей

Рассылки Subscribe.Ru
Изучение Delphi
http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное