recorrer lista de controles hijos.

[Byfed]

Encontré la solución haciendo lo siguiente:

procedure TFrameClientes.limpiar_detalle;
var
   i : integer;
begin
   for i:=0 to FormPrincipal.FrameClientes1.ComponentCount-1 do
      begin
         if (FormPrincipal.FrameClientes1.Components[i] is TEdit) then
            Tedit(FormPrincipal.FrameClientes1.Components[i]).text := '';
         if (FormPrincipal.FrameClientes1.Components[i] is TCheckBox) then
            TcheckBox(FormPrincipal.FrameClientes1.Components[i]).checked := false;
         if (FormPrincipal.FrameClientes1.Components[i] is TMemo) then
            TMemo(FormPrincipal.FrameClientes1.Components[i]).text := '';
         if (FormPrincipal.FrameClientes1.Components[i] is TComboBox) then
            begin
               TComboBox(FormPrincipal.FrameClientes1.Components[i]).text := '';
               TComboBox(FormPrincipal.FrameClientes1.Components[i]).itemindex := -1;
            end;
      end;
end;

Ahora quedaría otro reto.. y es hacer este procedimiento más general aún...
Que no lo tenga que escribir para cada frame.. sino que el frame fuera un parámetro y poder llamar al procedimiento como:

limpiar_detalle(FrameClientes1);

¿Alguien sabe cómo?

Salu2

[vtdeleon]

Con el código que te di mas arriba, lo puedes hacer. El procedimiento capta un parametro de la clase TFrame.

[vtdeleon]

Una pregunta,...Por qué no destruyes el Frame? antes de llamar al próximo.

[Byfed]

Empezado por vtdeleon

Una pregunta,...Por qué no destruyes el Frame? antes de llamar al próximo.

Porque no siempre limpio todos los campos del frame cada vez que entro. Depende de si llamo a init con algún parámetro o no. En ocasiones, interesa que al volver al frame que dejaste, mantenga el estado en el que estaba.

Salu2

[Byfed]

Empezado por vtdeleon

Con el código que te di mas arriba, lo puedes hacer. El procedimiento capta un parametro de la clase TFrame.

Vaya... no me fijé en que usabas el frame como parámetro.... lo probé por mi cuenta y funcionó.. de todos modos, gracias.

Salu2

[Byfed]

Al final resultó ser una chorradilla...

Creé un fichero (suelo crearlo para meter en él todos los procedimientos "reutilizables") llamado unitFunciones que de momento solo contiene ésto:

unit UnitFunciones;

interface

uses Forms, StdCtrls;

procedure limpiar_detalle(frame: Tframe);

implementation

procedure limpiar_detalle(frame: Tframe);
var
   i : integer;
begin
   for i:=0 to frame.ComponentCount-1 do
      begin
         if (frame.Components[i] is TEdit) then
            Tedit(frame.Components[i]).text := '';
         if (frame.Components[i] is TCheckBox) then
            TcheckBox(frame.Components[i]).checked := false;
         if (frame.Components[i] is TMemo) then
            TMemo(frame.Components[i]).text := '';
         if (frame.Components[i] is TComboBox) then
            begin
               TComboBox(frame.Components[i]).text := '';
               TComboBox(frame.Components[i]).itemindex := -1;
            end;
      end;
end;

La llamada la hago desde el init de cada uno de los frames, haciendo:

limpiar_detalle(FormPrincipal.FrameClientes1);

y voilá...

Si me hubiera puesto a investigar esto antes.. cuántas horas de trabajo me había ahorrado... El ultimo programa que hice tenía unos 20 frames, y limpiaba los campos uno a uno!!!.. no se cuantas líneas de código.. pero una burrada.. bueno, de los errores se aprende.

Gracias a todos.