Ejemplo simple:
Código:
// Crea un miembro que se llame LastIndex
// se encargará de saber la última TabSheet activa válida
void __fastcall TForm1::PageControl1Change(TObject *Sender)
{
if(PageControl1->Pages[PageControl1->ActivePageIndex]->Enabled == false){
PageControl1->ActivePageIndex = LastIndex;
return;
}
LastIndex = PageControl1->ActivePageIndex;
}
Saludos.