1. Computing

How to Hide the Tabs of the TPageControl Delphi control

Create a Wizard-Like User Interface

By

Hide TPageControl Tabs

Hide TPageControl Tabs

The TPageControl Delphi control displays a set of pages used to make a multiple page dialog box. Each page, a tab sheet, hosts its own controls. The user selects a page, i.e. makes it visible, by clicking the page’s tab that appears at the top of the control.

Hiding PageControl Tabs

If you need to create a wizard-like user interface where you have "Next" and "Previous" buttons "moving" a user forward and backward through a set of pages (dialogs), you might want to hide the tabs of the PageControl and thus disallow selecting a particular page by the mouse.

The trick is in setting the TabVisible property to false for each of the sheets (TTabSheet object) of the page control.

Note: Activating the page by using either the ActivePage or the ActivePageIndex PageControl properties will NOT raise the OnChange and OnChanging events.

To programmatically set the active page use the SelectNextPage method.

 //Hide PageControl Tabs
 var
   page : integer;
 begin
   for page := 0 to PageControl1.PageCount - 1 do
   begin
     PageControl1.Pages[page].TabVisible := false;
   end;
 
   //select the first tab
   PageControl1.ActivePageIndex := 0;
   (*
   Or set Active Page directly
   PageControl1.ActivePage := TabSheet1;
 
   Note: the above two do NOT raise the
         OnChanging and OnChange events
   *)
 end;
 
 procedure TForm1.PageControl1Changing(
   Sender: TObject;
   var AllowChange: Boolean) ;
 begin
   //no change if on the last page
   AllowChange := PageControl1.ActivePageIndex < -1 + PageControl1.PageCount;
 end;
 
 //Select "Previous" Tab
 procedure TForm1.PreviousPageButtonClick(Sender: TObject) ;
 begin
   PageControl1.SelectNextPage(false,false) ;
 end;
 
 //Select "Next" Tab
 procedure TForm1.NextPageButtonClick(Sender: TObject) ;
 begin
   PageControl1.SelectNextPage(true,false) ;
 end;
 
Delphi tips navigator:
» How to Store a String value to a Tag Property
« Programmatically Detect the MyDocuments Folder for the Current Windows User
  1. About.com
  2. Computing
  3. Delphi
  4. Using VCL Components
  5. TPageControl
  6. How to Hide the Tabs of the TPageControl Delphi control to Create a Wizard-Like User Interface

©2014 About.com. All rights reserved.