Cita:
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.