/*
This example requires a PageControl with no pages created,
and a TCheckBox. During the form create, a series of tabs
will be created on the Page Control that exceed the Page
Control's width. When the Check Box control is clicked, the
setting of the MultiLine property is toggled, alternately
stacking the tabs vertically, or along a single line
horizontally.
*/void__fastcall TForm1::CheckBox1Click(TObject *Sender)
{
PageControl1->MultiLine = CheckBox1->Checked;
}
void__fastcall TForm1::FormCreate(TObject *Sender)
{
CheckBox1->Caption = "Stack Tabs?";
for (int i = 0; i < 20; i++)
{
TTabSheet *pPage = new TTabSheet(PageControl1); // PageControl1 is the parent, so it will clean up.
pPage->PageControl = PageControl1;
pPage->Caption = AnsiString("Page") + IntToStr(i);
}
}

{
This example requires a PageControl with no pages created,
and a TCheckBox. During the form create, a series of tabs
will be created on the Page Control that exceed the Page
Control's width. When the Check Box control is clicked, the
setting of the MultiLine property is toggled, alternately
stacking the tabs vertically, or along a single line
horizontally.
}procedure TForm1.CheckBox1Click(Sender: TObject);
begin
PageControl1.MultiLine := CheckBox1.Checked;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
begin
Checkbox1.Caption := 'Stack Tabs?';
for i := 0 to 20 dowith TTabSheet.Create(Self) dobegin
PageControl := PageControl1;
Caption := 'Tab #' + IntToStr(i);
end;
end;