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