Нашли ошибку? Выделите
текст с ошибкой и нажмите кнопку "Сообщить об ошибке"
или CTRL+ENTER.
Справочная
система на версию 9.2
Update 17 от 29/12/2020,
© ООО «ФОРСАЙТ»,
Sub OnCheckToAddElem(Sender: Object; Args: IMetabaseTreeNodeSpecialEventArgs);
Begin
//набор операторов;
End Sub OnCheckToAddElem;
Sender. Параметр, возвращающий компонент, сгенерировавший событие.
Args. Параметр, позволяющий определить параметры события.
Событие OnCheckToAddElem наступает при добавлении элементов в дерево.
Событие наступает во время построения дерева для каждого элемента, отображаемого в дереве. В отличии от события OnIsBrowseableElem, событие OnCheckToAddElem также наступает для любых папок и объектов-контейнеров.
В свойстве Node аргумента события можно получить текущий элемент, для которого сгенерировано событие. Если свойству Special аргумента события установить значение True, то текущий элемент Node будет отображаться в дереве компонента. При установке свойству Special значения False элемент будет скрыт.
Для выполнения примера предполагается наличие формы и расположенного на ней компонента MetabaseTreeList. Указанная ниже процедура является обработчиком события OnCheckToAddElem.
Sub MetabaseTreeList1OnCheckToAddElem(Sender: Object; Args: IMetabaseTreeNodeSpecialEventArgs);
Var
s: String;
Begin
s := Args.Node.ObjectDescriptor.Id;
If s.IndexOf("SYSTEM") <> -1 Then
Args.Special := False;
End If;
End Sub MetabaseTreeList1OnCheckToAddElem;
После запуска формы в дереве элементов компонента не будут отображаться объекты, содержащие в своём идентификаторе «SYSTEM». Скрыты будут как объекты репозитория, так и папки и объекты-контейнеры.
См. также: