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