Sub OnIsBrowseableElem(Sender: Object; Args: IMetabaseTreeNodeSpecialEventArgs);
Begin
//набор операторов;
End Sub OnIsBrowseableElem;
Sender - параметр, возвращающий компонент, сгенерировавший событие.
Args - параметр, позволяющий определить параметры события.
Событие OnIsBrowseableElem наступает при определении отображаемых в дереве элементов.
Если свойству Special аргумента события установлено значение True, то соответствующий элемент Node будет отображаться в дереве компонента, иначе нет будет.
Для выполнения примера предполагается наличие формы и расположенного на ней компонента MetabaseTreeCombo. Компонент настроен на отображение данных какой-либо папки репозитория. Для компонента в качестве обработчика события OnIsBrowseableElem установлена данная процедура.
Sub MetabaseTreeCombo1OnIsBrowseableElem(Sender: Object; Args: IMetabaseTreeNodeSpecialEventArgs);
Var
s: String;
Begin
s := Args.Node.ObjectDescriptor.Name;
If s.IndexOf("temp") <> -1 Then
Args.Special := False;
End If;
End Sub MetabaseTreeCombo1OnIsBrowseableElem;
После запуска формы в дереве элементов компонента MetabaseTreeCombo не будут отображаться объекты, содержащие в своем наименовании сочетание "temp".
См. также: