recorrer lista de controles hijos.

[Byfed]

Joer.. Román.. como leches no he caido antes!!!.. si es que aún soy muy novato... en fin, muchas gracias de nuevo (utilizaré una variable de FrameActivo).

Nota: No os cuento la porrada de veces que he escrito un procedimiento para esconder todos los frames, porque me da vergüenza.

Saludos y gracias.

[[Lepe]]

Ya puestos a trabajar de la forma de roman, se podría hacer algo más automático:

Código Delphi [-]

 TForm1 = class(TForm)

private
   FFrameActivo : TFrame;
  procedure SetFrameActivo(const Value:TFrame);
public
  FrameActivo :TFrame read FFrameActivo write SetFrameActivo;
...

procedure TFrom1.SetFrameActivo(const Value:TFrame);
begin
  if Assigned(FFrameActivo) and (FFrameActivo <> Value) then
  begin 
    FFrameActivo.Hide;
  end;
  FFrameActivo := VAlue;
  FFrameActivo.Show;
end;

Con este rollo, a partir de ahora solo tienes que hacer:

Código Delphi [-]
  FrameActivo := frame1;

y listo, se oculta el que se estaba viendo y se muestra el nuevo.

Saludos

[Byfed]

Hola Lepe,

Gracias por tu respuesta, pero.. no es enrevesar demasiado las cosas?? No alcanzo a ver la ventaja de lo que propones.. aunque seguramente es porque no tengo conocimientos suficientes.

Aprovecho para ampliar mis horizontes y preguntarte por el código siguiente que has puesto en tu respuesta:

public
 FrameActivo :TFrame read FFrameActivo write SetFrameActivo;

Eso de "read" y "write" qué significa y para qué sirve?

Gracias de nuevo y un saludo.

[[Lepe]]

Me equivoqué en esa línea, debería decir:

Código Delphi [-]
property FrameActivo :TFrame read FFrameActivo write SetFrameActivo;

Eso significa que cuando vamos a leer (read) la propiedad FrameActivo, en realidad se lee la variable FFrameActivo, típico en este caso:

Código Delphi [-]
var r:TFrame;
begin
  r := FrameActivo;
end

Y cuando se va a escribir (write) en esa variable, Ejemplo:

Código Delphi [-]
FrameActivo := Frame1;

Se ejecutará el procedimiento SetFrameActivo, con lo cual, podemos realizar otras operaciones. Además, como ese procedimiento lleva un parámetro, podemos saber si FFrameActivo ya tenía asignado el Frame1, el Frame2, o cualquier otro.

En el código delphi anterior, el parámetro "Value" será el valor que queremos asignar, es decir "Frame1".

Fíjate que antes de mi mensaje, tú tendrías que hacer lo dicho por roman, 3 líneas de código:

Código Delphi [-]
  FrameActivo.Hide;
  FrameAMostrar.Show;
  FrameActivo := FrameAMostrar;

A partir de ahora, es sólo una línea de código:

Código Delphi [-]
  FrameActivo := Frame1;

Mira cualquier unidad de delphi con clases, y verás que trabaja así internamente, es decir, no estoy inventando nada nuevo .

Saludos