Использование компонентов для работы со списками

Для создания списков существуют 2 компоненты ListBox и ComboBox.

Компонент класса TListBox представляет собой стандартный для Windows список выбора , с помощью которого пользователь может выбрать один или несколько элементов выбора. В компоненте предусмотрена возможность программной прорисовки элементов ,поэтому список может содержать не только с троки , но и произвольные изображения.

Список, отображаемый в поле компонента, можно сформировать во время создания формы или во время работы программы. Чтобы сформировать список во время создания формы, надо выбрать свойство Items , щелкнуть на находящейся в поле значения свойства кнопке и в окне String List Editor ввести элементы списка. Формирование списка во время работы программы обеспечивает метод Add свойства Items.

Таблица 1.1 Свойства компонента ListBox

Комбинированный список TComboBox представляет собой комбинацию списка TListBox и редактора TEdit, и поэтому большинство его свойств и методов позаимствовано у этих компонентов. Существует пять модификаций компонента, определяемые его свойством style: csSimple, csDropDown, csDropDownList, csOwnerDrawFixed и csOwnerDrawVariable. Список, отображаемый в поле компонента, можно сформировать во время создания формы или во время работы программы. Чтобы сформировать список во время создания формы, надо выбрать свойство Items , щелкнуть на находящейся в поле значения свойства кнопке и в окне String List Editor ввести элементы списка.

Чтобы сформировать список во время работы программы (добавить в список элемент), надо применить метод Add к свойству Items.

Пример 1: По фамилии в списке вывести его должность.

1. Поместите на форму компоненты : 3 Label, ListBox и измените значения их свойств:

Свойство Caption у компоненты Label1- ‘ Список сотрудников’;

Свойство Caption у компоненты Label2- ‘ ‘;

Свойство Caption у компоненты Label3- ‘ Должность’;

2. Расположите компоненты как показано на рисунке 16.1 и введите текст программы для событий OnCreate для компоненты Form1 и OnClick для компоненты ListBox:

Рисунок 1

procedure TForm1.FormCreate(Sender: TObject);

begin

ListBox1.Items[0]:=’ Иванов’;

ListBox1.Items[1]:=’ Петров’;

ListBox1.Items[2]:=’ Сидоров’;

end;

Procedure TForm1.ListBox1Click(Sender: TObject);

var i:byte;

begin

i:=ListBox1.ItemIndex;

Case i of

0: Label2.Caption:=’ директор ’;

1: Label2.Caption:=’ менеджер ’;

2: Label2.Caption:=’ программист ’;

end;

end;

Пример 2: Просмотреть или добавить в список нового сотрудника.

1. Поместите на форму компоненты : 2 Label, ComboBox, Button, Edit и измените значения их свойств:

Свойство Caption у компоненты Label1- ‘ Список сотрудников’;

Свойство Caption у компоненты Label2- ‘ Введите сотрудника‘;

Свойство Caption у компоненты Button1 - ‘ Добавить в список’;

2. Расположите компоненты к ак показано на рисунке 16.2 и введите текст программы для событий OnClick для компоненты Button1:

Рисунок 2

procedure TForm1.Button1Click(Sender: TObject);

begin

ComboBox1.Items.Add(Edit1.Text);

end;