Sub OnBeforeReplaceItem(Sender: Object; Args: IMetaAttributeBreadcrumbReplaceItemEventArgs);
Begin
//набор операторов;
End Sub OnBeforeReplaceItem;
Отсутствует;
Sender - параметр, возвращающий компонент, сгенерировавший событие.
Args - параметр, позволяющий определить параметры события.
Событие OnBeforeReplaceItem наступает перед заменой элементов в компоненте.
В данном событии, используя свойство аргумента Attribute, можно организовать проверку заменяемых элементов. Установив соответствующее значение свойству Allow, можно разрешить либо запретить замену элементов.
Для выполнения примера предполагается наличие формы и расположенного на ней компонента MetaAttributesBreadcrumb с наименованием «MetaAttributesBreadcrumb1». Данный компонент подключен к какой-либо базе данных временных рядов. Указанная процедура установлена для «MetaAttributesBreadcrumb1» в качестве обработчика события OnBeforeReplaceItem.
Sub MetaAttributesBreadcrumb1OnBeforeReplaceItem(
Sender: Object; Args: IMetaAttributeBreadcrumbReplaceItemEventArgs);
Var
Item: IMetaAttributeBreadcrumbItem;
Begin
Item := Args.Item As IMetaAttributeBreadcrumbItem;
If (Item.MetaAttribute.Id = "DL") And (Args.Attribute = "COUNTRY") Then
Args.Allow := False;
End If;
End Sub MetaAttributesBreadcrumb1OnBeforeReplaceItem;
При возникновении события осуществляется проверка идентификаторов атрибутов. Если заменяемый элемент соответствует атрибуту с идентификатором «DL» и осуществляется попытка произвести замену на атрибут с идентификатором «COUNTRY», то замена будет запрещена.
См. также: