Шаг 10.5 - Создание процедуры администрирования объекта базы данных.

     Дважды щелкните на компоненте - am (TActionManager) формы fmPCFindDetails, на экран загрузится редактор менеджера действий (см. рис. 10.2). Дважды щелкните на действии AdminObj (Администрирование), будет создана процедура действия AdminObjExecute. Введите в тело процедуры следующие строки:

procedure TfmPCFindDetails.AdminObjExecute(Sender: TObject);
begin
     inherited;
     Self.vlftv.AdminObj;
     // вызов процедуры администрирования выделенного в таблице объекта
end;

     Скомпилируйте приложение и проверьте, как работает соответствующий пункт контекстного меню таблицы. Работа процедуры будет аналогична соответствующей процедуры, описанной для компонента TVLTableView (см. Урок 7 Шаг 7.4).

Шаг 10.6 - Создание процедуры просмотра информации об авторе-создателе объекта базы данных.

     Дважды щелкните на компоненте - am (TActionManager) формы fmPCFindDetails, на экран загрузится редактор менеджера действий (см. рис. 10.2). Дважды щелкните на действии AuthorObj (Автор-создатель), будет создана процедура действия AuthorObjExecute. Введите в тело процедуры следующие строки:

procedure TfmPCFindDetails.AuthorObjExecute(Sender: TObject);
begin
     inherited;
     Self.vlftv.AuthorObj;
     // вызов процедуры просмотра информации об авторе-создателе выделенного в таблице объекта
end;

     Скомпилируйте приложение и проверьте, как работает соответствующий пункт контекстного меню таблицы. Работа процедуры будет аналогична соответствующей процедуры, описанной для компонента TVLTableView (см. Урок 7 Шаг 7.5).

Шаг 10.7 - Создание процедуры изменения состояния объекта базы данных.

     Дважды щелкните на компоненте - am (TActionManager) формы fmPCFindDetails, на экран загрузится редактор менеджера действий (см. рис. 10.2). Дважды щелкните на действии ChangeState (Изменить состояние), будет создана процедура действия ChangeStateExecute. Введите в тело процедуры следующие строки:

procedure TfmPCFindDetails.ChangeStateExecute(Sender: TObject);
begin
     inherited;
     Self.vlftv.ChangeState;
     // вызов процедуры изменения состояния выделенного в таблице объекта
end;

     Скомпилируйте приложение и проверьте, как работает соответствующий пункт контекстного меню таблицы. Работа процедуры будет аналогична соответствующей процедуры, описанной для компонента TVLTableView (см. Урок 7 Шаг 7.6).

     На этом данный урок закончим. Далее...