.....Дважды щелкните на компоненте iml - TImageList, на экран загрузится редактор списка иконок (см. рис. 9.2). Установите в список иконку из файла Ok.BMP, который находится в папке ..\Tutorial\Icon каталога установки библиотеки (см. рис. 9.2).

Рис. 9.2.

     Затем дважды щелкните левой кнопкой мыши на компоненте am - менеджер действий (TActionManager), на экран загрузится окно редактора компонента (см. рис. 9.3).

Рис. 9.3.

     Создайте одно новое действие (TAction) (см. рис. 9.3). Настройте в инспекторе свойств некоторые свойства указанного действия следующим образом:

TAction

Свойство	Значение	Комментарий
Caption	Выбрать	Заголовок действия
Hint	Выбрать выделенный раздел классификатора	Контекстная подсказка
ImageIndex	0	Номер иконки в списке iml (нумерация начинается с 0)
Name	SelOKP	Имя действия в модуле

     Дважды щелкните на действии SelOKP - Выбрать. Будет создана процедура действия. Введите во вновь созданную процедуру следующие строки:

procedure TfmSelOKP.SelOKPExecute(Sender: TObject);
var
     inId: integer;
begin
     if Self.vltrv.Selected<>nil then
     // если в дереве выбран хоть какой-нибудь объект
     begin
          inId:=Self.vltrv.GetId;
          // получить идентификатор выбранного объекта
          Self.stSelect:=Self.vlom.BDDCOM.GetAttribute(inId,'Обозначение');
          // получить из базы данных атрибут для указанного объекта и установить его в буфер формы
          Self.ModalResult:=mrOk;
          // присвоить модальному результату закрытия формы код нажатия клавиши OK
          // и закрыть форму
     end;
end;

     Встаньте на компонент vltrv - TVLTreeView, в инспекторе свойств перейдите на закладку Events, дважды щелкните мышкой напротив события OnDblClick. Будет создана соответствующая процедура vltrvDblClick. Введите в тело процедуры следующие строки:

procedure TfmSelOKP.vltrvDblClick(Sender: TObject);
begin
     Self.SelOKPExecute(Sender);
     // вызвать процедуру SelOKPExecute
end;

     Дважды щелкние по компоненту puab (TPopupActionBar) мышкой, на экран загрузится редактор меню (см. рис. 9.4):

Рис. 9.4.

     Создайте пункт меню и настройте в инспекторе свойств некоторые свойства пунктов следующим образом:

TMenuItem - Выбрать

Свойство	Значение	Комментарий
Action	SelOKP	Действие (TAction), соответствующее данному пункту меню.
ShortCut	Ctrl+S	"Горячая клавиша", соответствующая данному пункту меню.

     Далее...