Ayuda para Simplificar codigo

[[movorack]]

hola...

mira... algo así creo que te puede servir... (Mientras escribia mi larguero rgstuamigo te logró responder con menos chachara )

Código Delphi [-]
procedure mostrarPage(PageIndex);
  procedure ocultarpages();
    var i : integer;
  begin
    for i := 0 to AdvPages.tabcount -1 do //No se si sera tabcount pero aqui va el total de las paginas
    begin
      AdvToolBarPager1.AdvPages[i].TabVisible := false;
    end
  end;
begin
  ocultarpages();
  AdvToolBarPager1.AdvPages[PageIndex].TabVisible := True;
  AdvToolBarPager1.ActivePageIndex := PageIndex;
end;

Para llamarlo... tendrias que agregar en cada boton algo como...

Código Delphi [-]
  mostrarPage(9);

ahora... lo que podrias hacer (no se si es correcto pero lo hago) es que podrias modificar el atributo tag de cada boton para que tenga el index que quieres mostrar y así todos los botones podrian llamar al mismo procedimiento...

Código Delphi [-]
  mostrarPage(TButton(Sender).tag);

ahora... este comportamiento que quieres se me parece mucho al del TJvPageList que en escencia es un pagecontrol sin tabs... pára navegar por el se usa el TJvPageListTreeView... donde haces en forma de arbol los links de navegación para el TJvPageList... es sencillo de manejar... todos estos componentes hacen parte de la JVCL por si quieres echarle un ojo...