Parent: IWxContainer;
The Parent property returns a parent container of the shape. Only object group is allowed to have child objects.
Executing the example requires an existing ws object of the IWxWorkspace type.
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;
After executing the example object selection within a group is disabled. The object with Shape 1 identifier is a group member.
See also: