Protection(ObjectProperty: WxObjectProperty): Boolean;
ObjectProperty - определяет защищаемое свойство.
Свойство Protection определяет защиту от изменения свойств объекта. Если значение данного свойства установить в Тrue, то свойство, указанное в качестве параметра, будет защищено от изменений.
По умолчанию свойство имеет значение False.
В рассматриваемом примере предполагается существование объекта Ws типа IWxWorkspace.
Sub UserProc;
Var
ws: IWxWorkspace;
Shape: IWxShape;
Begin
Shape := ws.Shapes.Item(0);
Shape.Protection(WxObjectProperty.EntityFree):= False;
End Sub UserProc;
После выполнения примера объект, размещенный на рабочем пространстве, нельзя будет удалить.
См. также: