Procedure doble Boolean case

[AlejandroCalica]

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

Hay varias formas de hacerlo de forma simple, de forma que puedas identificar todos los elementos del grupo.

• Todos dentro de un panel (que no tiene porqué ser visible)
• Todos los elementos con el mismo TAG
• ...

Si tienes definidos una serie de paneles en el formulario TODOS con la propiedad TAG=1 como estos:





Con un procedimiento como este:

Código Delphi [-]
procedure TForm2.OcultarVisualizarPaneles(APanel: TPanel);
var
  i:integer;
begin
  // Recorre todos los paneles
  for i := 0 to (ComponentCount - 1) do begin
    // Está marcado con el TAG=1
    if TPanel(Components[i]).Tag = 1 then begin
      // El del parámetro lo dejamos visible
      if (TPanel(Components[i]) = APanel) then
        TPanel(Components[i]).Visible := True
      // el resto los ocultamos...
      else
        TPanel(Components[i]).Visible := False;
    end;
  end;
end;

Puedes visualizar uno y ocultar el resto.

Código Delphi [-]
procedure TForm2.Button1Click(Sender: TObject);
begin
  OcultarVisualizarPaneles(Panel1)
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
  OcultarVisualizarPaneles(Panel2)
end;

procedure TForm2.Button3Click(Sender: TObject);
begin
  OcultarVisualizarPaneles(Panel3)
end;

En ejecución será algo así:

muchas gracias es lo que buscaba te lo agradesco
Neftali [Germán.Estévez]
[becario]

[AlejandroCalica]

lo que aun no logro comprender es como dejar a todos los paneles ocultos con un boton? o simplemente pondria
OcultarVisualizarPaneles(); asi, pero no funciono y otro problema que tuve es si son 20 paneles y ocupo el panel1 y el panel 5 visbles y los demas no visibles? como podria controlar los que se ven y por ende todos los demas ocultos o enabled les agradesco

[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

[AlejandroCalica]

comprendo que seria facil ese codigo pero mi idea era ampliar el codigo anterior, no se complementarlo para poder ejecutar el ocultar todo, o mostrar los paneles requeridos y los demas ocultos. aun sigo buscando la forma de ue sea en un solo procedimiento, se que hay muchos capaces de eso y mas

[ecfisa]

Hola.

No te entiendo... ¿ Lo que quieres es que solo se muestren algunos y otros permanezcan ocultos ?

Pues oculta todos y muestra luego los que desees:

Código Delphi [-]
procedure TForm1.SomePanelsVisible(const Panels: array of TPanel);
var
  i: Integer;
begin
  // Ocultar todos
  for i := 0 to ControlCount-1 do
    if Controls[i] is TPanel then
       Controls[i].Visible := False;
  // Mostrar los deseados
  for i := Low(Panels) to High(Panels) do
    Panels[i].Visible := True;
end;

Saludos

[AlejandroCalica]

tenia pensado algo as como tu procedimiento, pero con la opcion de ocultar todos

Código Delphi [-]
SomePanelsVisible([]);

que pudiece quedar algo asi para definir que todos esten ocultos y asi para solo mostar los indicados y todos los demas ocultos

Código Delphi [-]
SomePanelsVisible([panel1,panel2]);

pero en un solo procedimiento se podra ?

[Casimiro Noteví]

Empezado por AlejandroCalica

pero en un solo procedimiento se podra ?

Eso es un solo procedimiento

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;