ChildShapes: IWxShape;
Свойство ChildShapes возвращает коллекцию фигур, которые являются непосредственными дочерними объектами.
Дочерние объекты могут быть только у группы объектов или у самого рабочего пространства.
В рассматриваемом примере предполагается существование объекта ws типа IWxWorkspace.
Sub UserProc;
Var
ws: IWxWorkspace;
Shape : IWxShape;
Group : IWxGroup;
Begin
ws.BeginUpdate;
Group := ws.Shapes.FindById("Shape 3") As IWxGroup;
Shape := Group.ChildShapes.Item(0);
Shape.Style.BackgroundBrushForeColor := GxColor.FromName("Red");
ws.EndUpdate;
End Sub UserProc;
После выполнения примера будет изменен фон одного объекта, входящего в группу.
См. также: