IMetabaseCustomForeEvents.Add

Копировать пример

Sub UserProc;
Var
    MB: IMetabase;
    CustomClassExtender: IMetabaseCustomExtender;
    Events: IMetabaseCustomForeEvents;
    ForeEvent: IMetabaseCustomForeEvent;
Begin
    MB := MetabaseClass.Active;
    //Получение контейнера пользовательских классов
    CustomClassExtender := Mb.SpecialObject(MetabaseSpecialObject.CustomExtender).Edit As IMetabaseCustomExtender;
    //Получение списка событий
    Events := CustomClassExtender.Events;
    ForeEvent := Events.Add("EVENT_ENTER");
    ForeEvent.Name := "Вход в приложение";
    (CustomClassExtender As IMetabaseObject).Save;
End Sub UserProc;