Hola.
Otra opción puede ser:
Código:
...
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.