IMetabaseCustomForeEvents.Add

Copy example

Sub UserProc;
Var
    MB: IMetabase;
    CustomClassExtender: IMetabaseCustomExtender;
    Events: IMetabaseCustomForeEvents;
    ForeEvent: IMetabaseCustomForeEvent;
Begin
    MB := MetabaseClass.Active;
    //Get custom classes container
    CustomClassExtender := Mb.SpecialObject(MetabaseSpecialObject.CustomExtender).Edit As IMetabaseCustomExtender;
    //Get the list of events
    Events := CustomClassExtender.Events;
    ForeEvent := Events.Add("EVENT_ENTER");
    ForeEvent.Name := "Application login";
    (CustomClassExtender As IMetabaseObject).Save;
End Sub UserProc;