GroupSelected: ITabObjectGroup;
The GroupSelected method groups the selected objects.
Both separate objects and subgroups can be elements of the group.
Executing th example requires a form with the Button1 button located on it, the TabSheetBox component, and the UiTabSheet component named UiTabSheet1, that is used as a data source for TabSheetBox. The table should contain some objects. The link to the Tab system assembly should be added.
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
i: integer;
Tab: ITabSheet;
Objs: ITabObjects;
TabObjs: ITabObject;
Begin
Tab := UiTabSheet1.TabSheet;
Objs := Tab.Objects;
For i := 0 To (Objs.Count - 1) Do
Objs.Item(i).Select_;
End For;
TabObjs := Tab.Objects.GroupSelected;
End Sub Button1OnClick;
After executing the example all objects within the table are grouped.
See also:
ITabObjects | ITabObjects.UngroupSelected | ITabObjectGroup.Ungroup