Procedure doble Boolean case

[ecfisa]

Hola.

Empezado por AlejandroCalica

...
lo que aun no logro comprender es como dejar a todos los paneles ocultos con un boton?
...

Código Delphi [-]
procedure TForm1.btnHidePanelsClick(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to ControlCount-1 do
    if Controls[i] is TPanel then
       Controls[i].Visible := False;
end;

Empezado por AlejandroCalica

...
como podria controlar los que se ven y por ende todos los demas ocultos o enabled
...

Código Delphi [-]
procedure TForm1.SomePanelsVisible(const Panels: array of TPanel);
var
  i: Integer;
begin
  for i := Low(Panels) to High(Panels) do
    Panels[i].Visible := True;
end;

Ejemplo de uso:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
   SomePanelsVisible([Panel1, Panel5, Panel9, Panel17]);
end;

Saludos