No funciona OnChange cuando uso ActvePageIndex

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