No funciona OnChange cuando uso ActvePageIndex

[TiammatMX]

Empezado por ToritoCapo

...En un TPageControl cuando el usuario cambia de pestañas se activa el evento OnChange que realiza una acción determinada...

Te sugiero que no uses el evento OnChange, sino el evento OnChanging, que se ejecuta inmediatamente antes del que usas; con ésto, te aseguro que tendrás el control del componente tal como lo requieres.

[Neftali [Germán.Estévez]]

Empezado por tiammat

Te sugiero que no uses el evento OnChange, sino el evento OnChanging, que se ejecuta inmediatamente antes del que usas; con ésto, te aseguro que tendrás el control del componente tal como lo requieres.

Sí que se ejecuta antes que el anterior, pero si utilizas el código siguiente, tampoco salta el evento OnChanging. ;-(

Código Delphi [-]
  PageControl1.ActivePageIndex := 2;

[Neftali [Germán.Estévez]]

No se si te será más fácil traducir esto:

Código Delphi [-]
  THackPageControl = Class(TPageControl)
  protected
    function GetActivePageIndex: Integer;
    procedure SetActivePageIndex(const Value: Integer);
  public
    property ActivePageIndex: Integer read GetActivePageIndex write SetActivePageIndex;
  end;

{ THackPageControl }
function THackPageControl.GetActivePageIndex: Integer;
begin
  inherited;
end;

procedure THackPageControl.SetActivePageIndex(const Value: Integer);
begin
  Self.ActivePage := Self.Pages[Value];;
  Change;
end;

Se trata de definir una clase nueva que deriva de TPageControl y define esa propiedad con los 2 métodos. Si revisas cualquier clase creada en Builder se trata de hacerla igual.

Y luego en lugar de llamar a:;

Código Delphi [-]
   THackPageControl(PageControl1).ActivePageIndex := 1;

utilizas:

Código Delphi [-]
   PageControl1.ActivePageIndex := 1;

AÑADO: Veo que Román se ha adelantado. He de decir que yo tampoco se si este truco funcionará en Builder, pero es fácil que lo compruebas. Yo tampoco tengo conocimientos de Builder así que no te puedo ayudar a "traducirlo".

[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.

[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?