Ungroup;
Метод Ungroup разгруппировывает группу объектов.
В рассматриваемом примере предполагается существование объекта ws типа IWxWorkspace.
Sub UserProc;
Var
ws: IWxWorkspace;
Group : IWxGroup;
Begin
ws.BeginUpdate;
Group := ws.Shapes.FindById("Shape 3") As IWxGroup;
Group.Ungroup;
ws.EndUpdate;
End Sub UserProc;
После выполнения примера группа будет разгруппирована.
См. также: