Clear;
Метод Clear удаляет из коллекции все обработчики событий.
Добавьте ссылки на системную сборку Metabase.
Sub ClearHandlers;
Var
Mb: IMetabase;
SpecObj: ISpecialObjects;
ObjectHandlers: ISaveMetabaseObjectHandlers;
Begin
Mb := MetabaseClass.Active;
SpecObj := Mb.SpecialObjects(True);
ObjectHandlers := SpecObj.SaveMetabaseObjectHandlers;
ObjectHandlers.Clear;
(SpecObj As IMetabaseObject).Save;
End Sub ClearHandlers;
При выполнении примера будет очищена коллекция обработчиков событий.
См. также: