No funciona OnChange cuando uso ActvePageIndex

[ToritoCapo]

Hola Amigos !!!!!

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

El problema es que cuando uso la propiedad ActivePageIndex el evento OnChange no se activa.

Estuve buscando un poco y encontré este código que puede llegar a servir, pero.... no lo entiendo, me sería muy útil que estuviera en C++

type
   THackPageControl = Class(TPageControl) ;

procedure SetAsActivePage(tabSheet : TTabSheet) ;
begin
   if tabSheet.PageControl.ActivePage <> tabSheet then
   begin
     If THackPageControl(tabSheet.PageControl).CanChange then
     begin
         tabSheet.PageControl.ActivePage := tabSheet;
         THackPageControl(tabSheet.PageControl).Change;
     end
     else Abort;
   end;
end;

Saludos.

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

[roman]

Empezado por ToritoCapo

El problema es que cuando uso la propiedad ActivePageIndex el evento OnChange no se activa.

Estuve buscando un poco y encontré este código que puede llegar a servir, pero.... no lo entiendo, me sería muy útil que estuviera en C++

Yo tampoco entiendo el código y desafortunadamente mis conocimientos de C++ Builder son muy escasos. Sin embargo, puedo resolver tu problema en delphi de una manera más clara y que, espero, te sea más sencillo pasarla a C++.

El problema que tienes es que la asignación de la propiedad ActivePageIndex no activa el evento OnChange. Entonces, lo que puedes hacer es derivar una clase de TPageControl en la cual redefinas el método de asignación de dicha propiedad:

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

published
  property ActivePageIndex write SetActivePageIndex;
end;

implementation

procedure TMiPageControl.SetActivePageIndex(Value: Integer);
begin
  inherited ActivePageIndex := Value;
  if Assigned(OnCange) then OnChange(Self);
end;

Para poder usar esta nueva funcionalidad, tendrías que instalar el nuevo componente y usarlo en lugar del TPageControl original. No obstante, esto puede ser engorroso, sobre todo si sólo lo vas a usar para un PageControl. Entonces, lo que puedes hacer es usar el truco de la clase sobrepuesta (*): en la unidad del formulario que tiene tu PageControl agregas esta definición, antes de la del propio formulario:

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

  published
    property ActivePageIndex write SetActivePageIndex;
  end;

  TForm1 = class(TForm)
    ...
    PageControl1: TPageControl;
    ...
  end;

Como ves, lo que haces ahora es definir una clase con el mismo nombre que la original. Como la declaración aparece antes que la del PageControl1, el compilador usará la nueva clase. La implementación del método etActivePageIndex es como antes:

Código Delphi [-]
procedure TPageControl.SetActivePageIndex(Value: Integer);
begin
  inherited ActivePageIndex := Value;
  if Assigned(OnChange) then OnChange(Self);
end;

---------------------

(*) Lo que desconozco por completo, es si el truco de las clases sobrepuestas funciona también en C++

// Saludos

[ToritoCapo]

Estimados amigos, este código proporcionado por escafandra funcionó excelente.

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
}

Es lo que necesitaba para que se activara el OnChange.

Quiero felicitar y agradecer nuevamente a todos por su gran ayuda !!!!!

Saludos.