Мастер настроек [Wizard]

//----------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
 
#include "Unit2.h"
//----------------------------------------------------------------------------
#pragma resource "*.dfm"
TForm2 *Form2;
 
int gPageCount;
int gCurrentPage = 0;
//----------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent *Owner)
    : TForm(Owner)
{
        gPageCount = PageControl1->PageCount;
 
        // ------ Скрываем все вкладки с ярлыками -------------
        for (int i=0; i<gPageCount; i++)
        {
                PageControl1->Pages[i]->TabVisible = false;
        }
        // ----------------------------------------------------
 
        // ----- Показываем содержимое 1-й вкладки -------
        PageControl1->Pages[0]->Visible = true;
        // ------------------------------------------------
}
//----------------------------------------------------------------------------
 
void __fastcall TForm2::Button5Click(TObject *Sender)
{
        if (gCurrentPage == PageControl1->PageCount-1) return;
 
        // ---- Скрываем содержимое текущей вкладки и отображаем следующей -----
        PageControl1->Pages[gCurrentPage]->Visible = false;
        gCurrentPage++;
        PageControl1->Pages[gCurrentPage]->Visible = true;
        // ---------------------------------------------------------------------
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button4Click(TObject *Sender)
{
        if (gCurrentPage == 0) return;
        // ---- Скрываем содержимое текущей вкладки и отображаем предыдущей -----
        PageControl1->Pages[gCurrentPage]->Visible = false;
        gCurrentPage--;
        PageControl1->Pages[gCurrentPage]->Visible = true;
        // ---------------------------------------------------------------------
}
//---------------------------------------------------------------------------