Компонент TListBox

Замечание

Пример 2.

Замечание

Для того, чтобы подключить локальное меню к главной форме, необходимо в инспекторе объектов свойству

PopupMenu:= PopupMenu1;

В разделе Implementation Unit1 необходимо записать две процедуры, связанные с обработкой команд локального меню:

Procedure Tform1.N8Click;

begin

Form2.ShowModal;

end;

Procedure Tform1.N9Click;

begin

Form3.ShowModal;

end;

Пусть требуется реализовать локальное меню, по командам которого необходимо выводить в компоненту Label текст с различными способами выравнивания.

Для каждой команды локального меню можно создать обработчик в виде:

Procedure Tform1.Left(Center, Right)Click;

begin

Label1.Allignment:= taLeftJustify(taCenter,taRightJustify);

end;

Для того, чтобы появлялось локальное меню по нажатию правой кнопки в области компонента Label1 необходимо имя локального меню указать в свойстве PopupMenu компонента Label1.

Для того, чтобы визуально было видно выравнивание текста, необходимо

Label1.AutoSize:= false;

TListBox

В ряде случаев необходимо предложить пользователю выбор из одного или нескольких готовых ответов. Для этих целей применяется компонента TListBox. Если выводимый список не умещается в отведенном пространстве окна, то появляются вертикальный и/или горизонтальный скроллинг.

Основные свойства:

Items: TSrings;

С помощью этого свойства задается набор строк (список);

ItemIndex: Integer;

- индекс выделенного (сфокусированного) элемента (нумерация начинается с нуля);

Columns: LongInt;

- содержит количество столбцов (по умолчанию равно 1);

Sorted: Boolean;

- позволяет разрешать или отменять сортировку строк в алфавитном порядке.

Чтобы на стадии проектирования занести информацию в ListBox, необходимо выбрать свойство Items и нажать . При этом будет вызван текстовый редактор.

Дата добавления: 2014-01-07