Procedure doble Boolean case

[AlejandroCalica]

Muy bien día a todos y felices fiestas, alguien de ustedes ya resolvió el dilema de como hacer

Digamos tengo 5 o 4 controles y por determinado evento un control queda visible y los demás ocultos, pero para que no se haga extenso el código a ocupar, pensé si existe la forma de crear un Procedure o función de doble Boolean en dónde 1 sea a true o false y el otro su contrario dentro del Procedure con un CASE, dónde lo que esté en 1 opción sea visible y en la otra opción no visible, espero haber sido claro, saludos

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

Yo reconozco que no te acabo de entender...
No se si quieres hacer un procedimiento para escribir menos y activar/desactivar todos los botones "de golpe".

[AlejandroCalica]

Buen día más o menos, desactivar todos menos 1, o activar 1 menos lo demás algo así, ejemplo: tengo 4 panel uno sobre otro, al entrar al formulario solo mostrar 1 y los demás ocultos, al precionar 1 Burton, ahora ocultar el visible y activar el 2 un ejemplo, osea el Procedure tendría la opción de colocar cuál panel será el true y los demás estarán en false, espero allá Sido claro

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

Empezado por AlejandroCalica

desactivar todos menos 1, o activar 1 menos lo demás algo así, ejemplo: tengo 4 panel uno sobre otro, al entrar al formulario solo mostrar 1 y los demás ocultos, al precionar 1 Burton, ahora ocultar el visible y activar el 2 un ejemplo, osea el Procedure tendría la opción de colocar cuál panel será el true y los demás estarán en false, espero allá Sido claro

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í:

[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