Ayuda para Simplificar codigo

[[José Luis Garcí]]

tambien puedes crear una función o procedure, pasarla parámetros, etc.

Mira en la búsqueda y el mismo procedimiento que te dio rgstuamigo te serviría

este es tu código original

Código Delphi [-]
procedure TTMSForm1.AdvGlowButton6Click(Sender: TObject);
begin
with AdvToolBarPager1 do
begin
AdvPages[0].TabVisible:=false;
AdvPages[1].TabVisible:=false;
AdvPages[2].TabVisible:=false;
AdvPages[3].TabVisible:=false;
AdvPages[4].TabVisible:=false;
AdvPages[5].TabVisible:=false;
AdvPages[6].TabVisible:=false;
AdvPages[7].TabVisible:=false;
AdvPages[8].TabVisible:=false;
AdvPages[9].TabVisible:=true;
AdvPages[10].TabVisible:=false;
AdvPages[11].TabVisible:=false;
AdvPages[12].TabVisible:=false;
AdvPages[13].TabVisible:=false;
AdvPages[14].TabVisible:=false;
AdvPages[15].TabVisible:=false;
ActivePageIndex:=9;
end;
end;

y este el que te propongo

Código Delphi [-]
Function MiAdvPAges(Page, Max:integer;Acivo:boolean);
var indice:Byte;
begin
  with AdvToolBarPager1 do
  begin
    for  indice:=0  to Max do
    begin
       AdvPages[indice].TabVisible:=Activo;
     end;
    ActivePageIndex:=PAge;  
   end;
end;

Te he puesto un ejemplo sin probarlo, pero creo que debería funcionar y la llamada desde un botón seria

Código Delphi [-]
MiAdvPAges(9, 15, False);

Seria lo mismo que tu has expuesto