Delphi 6 программирование

       

Демонстрация компонента TValueListEditor



Рисунок 18.17. Демонстрация компонента TValueListEditor



property DropDownRows: Integer; Указывает максимальное количество строк в списке возможных значении, показ которых не сопровождается появлением полосы прокрутки
property ItemProps[const KeyOrIndex: Variant]: TItemProp; Сложное свойство, управляющее различными аспектами отображения значений (см. пояснения ниже)
type TKeyOption = (keyEdit, keyAdd, keyDelete, keyUnique) ;

TKeyOptions = set of TDisplayOption;

property KeyOptions: TKeyOptions;

Управляет возможным изменением списка: keyEdit - пользователь может изменять имя параметра (в первом столбце); keyAdd - пользователь может добавлять новую пару имя-значение нажатием клавиши Insert (требует включения keyEdit); keyDelete -пользователь может уничтожить выделен ную пару нажатием клавиши Delete; keyUnique - названия вводимых пользователем имен должны быть уникальными
property Keys[Index: Integer]:String; Открывает доступ к названиям значений по их индексам
property RowCount: Integer; Содержит количество строк
property Strings: TStrings; Содержит строки списка
property TitleCaptions: TStrings; Содержит заголовки столбцов
property Values[const Key:String]: String; Открывает доступ к значениям по их индексам

Свойство itemprops класса Titemprop имеет собственные свойства:

property EditMask: String; Содержит маску для формирования значения. Правила создания маски описаны в п.

18.2.3

type TEditStyle = (esSimple,

esEllipsis, esPickList);

property EditStyle: TEditStyle;

Определяет правила редактирования значения: esSimple - значение редактируется в обычном однострочном редакторе; esEllipsis - в строку значения вставляется кнопка для вызова диалогового окна редактора значения (возбуждается событие OEditButtonclick); esPickList - в строку значения вставляется кнопка для раскрытия списка возможных значений (возбуждается событие OnGetPickList)
property MaxLength: Integer; Определяет максимальную длину (в символах) значения. Если 0, нет ограничений на длину
property PickList: TStrings; Содержит выпадающий список возможных значений
property Readonly: Boolean; Разрешает/запрещает редактирование значения

Свойство PickList не предназначено для программного доступа. Чтобы создать выпадающий список возможных значений, нужно свойству ItemProp.EditStyle присвоить значение esPickList и написать обработчик события onGetpickList. Пусть, например, первое значение должно иметь выпадающий список. Тогда необходим такой код:

procedure TFor.gif" >




Содержание раздела