No funciona OnChange cuando uso ActvePageIndex

[ecfisa]

Hola.

Otra opción puede ser:

...

int OldPageIndex = -1;

void __fastcall TForm1::btnChangeIndexClick(TObject *Sender)
{
  OldPageIndex = PageControl1->ActivePageIndex; // guardar índice actual
  PageControl1->ActivePageIndex = 1;            // cambiar índice
  if(PageControl1->ActivePageIndex != OldPageIndex) // ¿ es diferente ?
     PageControl1Change(Sender); //si, llamar evento OnChange
}

void __fastcall TForm1::PageControl1Change(TObject *Sender)
{
 ShowMessage("OnChange");
}

...

Saludos.