ITabObjectGroup.Ungroup

Синтаксис Fore

Ungroup;

Синтаксис Fore.NET

Ungroup();

Описание

Метод Ungroup осуществляет разгруппировку элементов.

Пример Fore

Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с наименованием «Button1», компонента TabSheetBox и компонента UiTabSheet с наименованием «UiTabSheet1», являющимся источником данных для TabSheetBox. Объекты, созданные в таблице должны быть сгруппированными. Должна быть добавлена ссылка на системную сборку Tab.

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    Tab: ITabSheet;
    TabObj: ITabObject;
    TabObjGr: ITabObjectGroup;
Begin
    Tab := UiTabSheet1.TabSheet;
    TabObj := Tab.Objects.SelectedObject(0);
    TabObjGr := TabObj As ITabObjectGroup;
    If TabObjGr <> Null Then
        TabObjGr.Ungroup;
    End If;
End Sub Button1OnClick;

После выполнения примера произойдет разгруппировка всех объектов группы.

Пример Fore.NET

Для выполнения примера предполагается наличие .NET-формы, расположенной на ней кнопки с наименованием «button1», компонента TabSheetBoxNet и компонента UiTabSheetNet с наименованием «uiTabSheetNet1», являющимся источником данных для TabSheetBoxNet. Объекты, созданные в таблице должны быть сгруппированными. Должна быть добавлена ссылка на системную сборку Tab.

Imports Prognoz.Platform.Interop.Tab;
...
Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
    Tab: ITabSheet;
    TabObj: ITabObject;
    Group: ITabObjectGroup;
Begin
    Tab := uiTabSheetNet1.TabSheetUi.TabSheet;
    TabObj := Tab.Objects.SelectedObject[0];
    Group := TabObj As ITabObjectGroup;
    If Group <> Null Then
        Group := TabObj.ParentGroup;
    End If;
    Group.Ungroup();
End Sub;