No funciona OnChange cuando uso ActvePageIndex

[ToritoCapo]

Gracias a todos por su tiempo, estuve con unos problemas por eso no me pude conectar a responder.

Creo que las soluciones que me brindaron pueden llegar a funcionar todas, pero tengo el inconveniente que no puedo traducirlas.
Además no tengo tantos conocimientos por ejemplo, como para poder crear nuevas clases, perdón soy bastante novato.

Por eso valoro muchísimo lo que hacen todos ustedes por los demás.

Saludos y gracias.

[[escafandra]]

No me había percatado de este tema hasta ahora. Voy a poner mi granito de arena.

En primer lugar y como solución sencilla sería llamar al evento OnChange cada vez que usemos la propiedad ActivePageIndex, de forma "manual". Tiene la ventaja de ser sencillo y comprenderse bien, pero no es automático:

PageControl1->ActivePageIndex = 3;
PageControl1Change(this);

Una segunda solución mas avanzada y parecida a la solución de roman y Neftali sería reescribir el método SetActivePageIndex de la clase TPageControl. Tiene la ventaja de automatizar el proceso, el evento OnChange se lanzará con cada asignación de ActivePageIndex:

// Nueva definición de SetActivePageIndex de la clase TPageControl
void __fastcall TPageControl::SetActivePageIndex(const int Value)
{
  if (Value > -1 && Value < PageCount)
    ActivePage = Pages[Value];
  else
    ActivePage = 0;

  if(OnChange) OnChange(this); // Lanzamos el Evento
}

// Asignación de ActivePageIndex 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  PageControl1->ActivePageIndex = 1;
}

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

Saludos.

[Angel.Matilla]

Empezado por escafandra

Una segunda solución mas avanzada y parecida a la solución de roman y Neftali sería reescribir el método SetActivePageIndex de la clase TPageControl. Tiene la ventaja de automatizar el proceso, el evento OnChange se lanzará con cada asignación de ActivePageIndex:

Estaba buscando por el foro, porque tengo el mismo problema que abrió este hilo. Este código de escafandra me parece estupendo por lo sencillo pero he estado mirando por Builder y no encuentro por ninguna parte ese método SetActivePageIndex. ¿Me podéis explicar como implementarlo?

[[escafandra]]

Empezado por Angel.Matilla

Estaba buscando por el foro, porque tengo el mismo problema que abrió este hilo. Este código de escafandra me parece estupendo por lo sencillo pero he estado mirando por Builder y no encuentro por ninguna parte ese método SetActivePageIndex. ¿Me podéis explicar como implementarlo?

No lo encontrarás en Builder porque es un método escrito en delphi:

comctrls.pas

Código Delphi [-]
TPageControl = class(TCustomTabControl)
private
.....
procedure SetActivePageIndex(const Value: Integer);
.....

Pero nada te impide que lo reescribas y lo compiles para que puedas cambiarle su funcionalidad.

Saludos.

[Angel.Matilla]

Empezado por escafandra

Pero nada te impide que lo reescribas y lo compiles para que puedas cambiarle su funcionalidad.

Gracias por la respuesta, pero si Builder y yo ya tenemos más de un desencuentro, no te quiero explicat con Delphi. El código que hay antes estápuesto en Builder; ¿bastaría con ponerlo tal cual y compilarlo o habría que hacer algo más?

[[escafandra]]

Empezado por Angel.Matilla

Gracias por la respuesta, pero si Builder y yo ya tenemos más de un desencuentro, no te quiero explicat con Delphi. El código que hay antes estápuesto en Builder; ¿bastaría con ponerlo tal cual y compilarlo o habría que hacer algo más?

Claro. La solución está escrita en C++. Si tienes problemas te mando un proyectito. Ahora no tengo a mano un PC.

Saludos

[[escafandra]]

Ahí te subo un ejemplo. No lo dejaré mucho tiempo para no consumir mi espacio de archivos adjuntos.

Saludos.