[Cristalero]

Hola a tod@s!

Tengo el siguiente problema. Tengo un formulario principal que abre otro formulario modal llamado fEditor de la siguiente manera:

Código Delphi [-]
var
  fEditor : TfEditor;
begin
  fEditor := TfEditor.Create(Application);
  try
    fEditor.ShowModal;
    uFunciones.editEstado1(); //aquí llamo a la siguiente función que da problemas
  finally
    fEditor.Free;
  end;

- El problema es el siguiente:
Quiero recorrer los controles del segundo formulario modal, lo que hago es recorrer todos los controles del formulario modal 'fEditor' y si el control es de tipo tdbedit que es lo que quiero yo, si el campo está vacío quiero que aparezca en diferente color. La función es la siguiente:

Código Delphi [-]
procedure editEstado1();
var
  i: integer;
begin
  for i := 0 to fEditor.ControlCount-1 do
  begin
    if fEditor.Controls[i] is TDBEdit then
    begin
      if TDBEdit(fEditor.Controls[i]).Text = '' then
      begin
              TDBEdit(fEditor.Controls[i]).Color:=rgb(252,211,135);
      end;
      {...}
    end;
  end;

-No me da ningún error pero no lo realiza. Porque puede ser? Un saludo y gracias de antemano. Xaito!