funcion para no repetir codigo:(

[Neftali [Germán.Estévez]]

Empezado por ivantj24

lo que intento es que tengo 8 botones ocultos, quiero que al hacer click en un menu, se visualice una pestania del pagecontrol, en este caso al seleccionar 1 si esta visible otra que se oculte para darle paso a la que acabo de clickear, para dar una idea hice este codigo con solo 4 botones,....

Para la prrimera yo hubiera hecho algo así (funciona con cualquier número de botones que pases como parámetro, ya sean 4, 8,...)

Código Delphi [-]
procedure TForm1.MostrarOcultarBotones(btnArray: array of TButton);
var
  i, j:integer;
begin
  for j := Low(btnArray) to High(btnArray) do begin
    if btnArray[j].Enabled then begin
      for i := Low(btnArray) to High(btnArray) do begin
        btnArray[i].Visible := (i = j);
      end;
    end;
  end;
end;

La segunda no me ha quedado muy clara, pero supongo que puedes hacer algo similar.