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(); 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!