Table of Contents

Getting started

Requirements

  • Delphi 10.1 Berlin or later
  • TMS FNC Core (required dependency)
  • TMS FNC UI Pack

Drop the component

  1. Drop a TTMSFNCTabSet onto a form.
  2. Set Align to alTop (or alBottom, alLeft, alRight) to dock it to a side.
  3. Add tabs in the Object Inspector by expanding Tabs, or at runtime with AddTab / the Tabs collection.

Minimal example

Dock the control, add three tabs, position the strip, and switch a view when the active tab changes. Layout.Position (tlpTop, tlpBottom, tlpLeft, tlpRight) is the framework-agnostic way to place the strip.

procedure TForm1.FormCreate(Sender: TObject);
begin
  TMSFNCTabSet1.Align := TAlignLayout.Top;
  TMSFNCTabSet1.Layout.Position := tlpTop;   // tlpTop, tlpBottom, tlpLeft, tlpRight

  TMSFNCTabSet1.BeginUpdate;
  try
    TMSFNCTabSet1.Tabs.Clear;
    TMSFNCTabSet1.AddTab('Overview');
    TMSFNCTabSet1.AddTab('Details');
    TMSFNCTabSet1.AddTab('Settings');
  finally
    TMSFNCTabSet1.EndUpdate;
  end;

  TMSFNCTabSet1.ActiveTabIndex := 0;
end;

procedure TForm1.TMSFNCTabSet1ChangeTab(Sender: TObject; APreviousTabIndex,
  ACurrentTabIndex: Integer);
begin
  // Switch the visible page or panel based on ACurrentTabIndex.
  ContentLayout.Visible := True;
end;
A docked tab set with several tabs A docked tab set with several tabs

Next steps