Шаг 5.3 - Изменение вызывающей форму процедуры.

     Далее перейдем на главную форму приложения. Загрузим редактор компонента am - менеджера действий (TActionManager см. рис. 2.2), дважды щелкните левой кнопкой мыши на действии LibOKP (Классификатор ОКП). Изменим содержимое раздела implementation и тела указанной процедуры, как указано ниже:

implementation

uses VLDefinition, hh, hh_funcs, PCMDIChild, PCVLMDIChild, PCLibOKP;
...

procedure TPLMCom.LibOKPExecute(Sender: TObject);
begin
     CurBDId:=Self.vlrvl.GetIntegerData('InLibOKP');
     // поместить в системный буфер идентификатор,
     // взятый из списка системных переменных под наименованием InPlant
     CurBDDCOM:=Self.DCOM;
     // поместить в системный буфер указатель на DCOM-соединение
     TfmLibOKP.Create(Application);
     // создать форму справочника
end;

     Скомпилируйте проект, загрузите приложение и проверьте пункт главного меню "Классификатор ОКП". На экран должна загрузиться форма, как показано на рисунке 5.2.

Рис. 5.2

     На закладке компонентов VLPlus выберите компонент TBtnSplitter и установите его на форму. В окне инспектора свойств настройте нижеуказанное свойство следующим образом:

TForm.

Свойство	Значение	Комментарий
Align	alTop	Выравнивание вверх к компоненту vltrv (TVLTreeView).
DirectControl	vltrv	Имя управляемого компонента, выберите из списка.
Name	btnspl	Имя компонента в модуле

     Продолжение...