Ver Mensaje Individual
  #4  
Antiguo 22-12-2009
Roilo Roilo is offline
Miembro
 
Registrado: nov 2005
Ubicación: Mayarí, Cuba
Posts: 143
Reputación: 19
Roilo Va por buen camino
Creo que lo logramos!!!

bueno, que no me ponía en rojo los componentes vacíos porque los tenía en GroupBox diferentes (GBInf y GBDPers). Tube que especificar lo siguiente:
Código Delphi [-]
for I := GBDPers.ControlCount-1 downto 0 do
    begin

     if GBDPers.Controls[i] is TComboBox then
       if TComboBox(GBDPers.Controls[i]).Text = '' then
         TComboBox(GBDPers.Controls[i]).Color := clRed;

     if GBDPers.Controls[i] is TEdit then
       if TEdit(GBDPers.Controls[i]).Text = '' then
         TEdit(GBDPers.Controls[i]).Color := clRed;
    end ;

  for I := GBInf.ControlCount-1 downto 0 do
    begin

     if GBInf.Controls[i] is TComboBox then
       if TComboBox(GBInf.Controls[i]).Text = '' then
         TComboBox(GBInf.Controls[i]).Color := clRed;

     if GBInf.Controls[i] is TEdit then
       if TEdit(GBInf.Controls[i]).Text = '' then
         TEdit(GBInf.Controls[i]).Color := clRed;
    end ;
Gracias por la ayuda Jorge!!!
__________________
...que la libertad sólo existe cuando no es de nadie.
Responder Con Cita