TPageControl.TabWidth Property

Specifies the horizontal size, in pixels, of the tabs in the tab control.

Pascal

property TabWidth: Smallint;

C++

__property Smallint TabWidth;

Description

TabWidth specifies a fixed width for all tabs. If TabWidth is 0, then each tab is automatically made wide enough to show its caption.

C++ Examples:

Copy Code

/*
This project requires a TPageControl and several TTabPages.
To add new pages, right-click the TPageControl and select 
New Page.  During the form creation the width and height of 
all tabs on the Page Control becomes double the largest 
previous value. So if there are three tabs with captions that
are 12, 23, and 19 characters long, the TabWidth would be the
number of pixels required to fit 46 characters.
*/
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  for (int i = 0; i < PageControl1->PageCount; i++)
  {
     AnsiString s = PageControl1->Pages[i]->Caption;
     if (Canvas->TextWidth(s) * 2 > PageControl1->TabWidth)
        PageControl1->TabWidth = Canvas->TextWidth(s) * 2;
      if (Canvas->TextHeight(s) * 2 > PageControl1->TabHeight)
        PageControl1->TabHeight = Canvas->TextHeight(s) * 2;
  }
}

Delphi Examples:

Copy Code

{
This project requires a TPageControl and several TTabPages.
To add new pages, right-click the TPageControl and select 
New Page.  During the form creation the width and height of 
all tabs on the Page Control becomes double the largest 
previous value. So if there are three tabs with captions that
are 12, 23, and 19 characters long, the TabWidth would be the
number of pixels required to fit 46 characters.
} 
procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  with PageControl1 do
  begin
    for i := 0 to PageCount - 1 do
    begin
      if (Canvas.TextWidth(Pages[i].Caption) * 2) > TabWidth then
        TabWidth := Canvas.TextWidth(Pages[i].Caption) * 2;
      if (Canvas.TextHeight(Pages[i].Caption) * 2) > TabHeight then
        TabHeight := Canvas.TextHeight(Pages[i].Caption) * 2;
    end;
  end;
end;