TitleSuffix: String;
The TitleSuffix property determines suffix for tab header text.
To determine the text displayed in the tab header, use the INavigationBarHeader.Title property.
Executing the example requires a form with the NavigationBar component named NavigationBar1 on it. The repository also contains forms with the F_FORM1, F_FORM2 identifiers. These forms will be connected to the NavigationBar1 component tab panels.
Sub TESTFormOnCreate(Sender: Object; Args: IEventArgs);
Var
Pad: INavigationBarPad;
Begin
Pad := New NavigationBarPad.Create;
Pad.Header.Title := "Pad " + NavigationBar1.Pads.Count.ToString;
Pad.Header.TitleSuffix := "(suffix of " + NavigationBar1.Pads.Count.ToString + " pad)";
Pad.Content.MetabaseObject := "DimensionCombo1";
NavigationBar1.Pads.Add(Pad);
Pad := New NavigationBarPad.Create;
Pad.Header.Title := "Pad " + NavigationBar1.Pads.Count.ToString;
Pad.Header.TitleSuffix := "(suffix of " + NavigationBar1.Pads.Count.ToString + " pad)";
Pad.Content.MetabaseObject := "DimensionCombo2";
NavigationBar1.Pads.Add(Pad);
End Sub TESTFormOnCreate;
The NavigationBar1 tab collection is set up at the form startup. Two tabs are created in the collection, and the header and the panel are set up for each of them.
An approximate form available for the form after setup of the NavigationBar1 component:
See also: