Parent: IWxContainer;
Свойство Parent возвращает родительский контейнер фигуры. Дочерние объекты могут быть только у группы объектов.
В рассматриваемом примере предполагается существование объекта ws типа IWxWorkspace.
Sub UserProc;
Var
ws: IWxWorkspace;
Shape : IWxShape;
Group : IWxGroup;
Begin
ws.BeginUpdate;
Shape := ws.Shapes.FindById("Shape 1");
Group := Shape.Parent As IWxGroup;
Group.AllowObjectSelection := False;
ws.EndUpdate;
End Sub Button3OnClick;
После выполнения примера для группы будет отключена возможность выделения объектов внутри группы. Объект с идентификатором «Shape 1» является членом группы.
См. также: