Poner color background del form cuando pierde el foco

[[eduarcol]]

podrias hacer un procedimiento recursivo donde tu le pases el formulario y el te pinte todos los controles de su interior:

Código Delphi [-]
procedure Pintar(Ctr: TWinControl);
var
   nIdx: Integer;
begin
   for nIdx := 0 to Ctr.ControlCount - 1 do
   begin
      if Ctr.Controls[nIdx] is TEdit then
      begin
         TEdit(Ctr.Controls[nIdx]).Color := ;
      end
      else if Ctr.Controls[nIdx] is TButton then
      begin
         TButton(Ctr.Controls[nIdx]).Color := ;
      end
      else if Ctr.Controls[nIdx] is TWinControl then
      begin
         //Asegura la recursividad
         if TWinControl(Ctr.Controls[nIdx]).ControlCount > 0 then
            Pintar(TWinControl(Ctr.Controls[nIdx]));
      end;
   end;
end;

[Cabanyaler]

Si, gracias, pero....

...aunque no había pensado en la recursividad (no me gusta por la poca transparencia primero del algoritmo, y después de la sobrecarga de memoria ram y de pila al almacenar cada llamada con el estado de cada una de las variables etc, etc), lo había imaginado implementado dentro de un for recorriendo todos los controles del Form, pero como digo los hay que no tienen la propiedad color, como p.e. el TButton, con lo que la línea del código muy amablemente ofrecido:

Código Delphi [-]
         TButton(Ctr.Controls[nIdx]).color := clred;

me dá el correspondiente error de identificador no declarado.

Además en este algortimo creo que nunca se llega al caso base ¿no?.

De todos modos, sigo mirando como hacerlo y mientras esperando alguna ayuda.

Muchas gracias a todos y especialmente a EduarCol.

[roman]

No es necesario usar un procedimiento recursivo si recorres la colección Components en lugar de Controls. Components contiene todas las componentes insertadas en el formulario durante el diseño.

Para evitar tanto if puedes usar RTTI (Run Time Type Info):

Código Delphi [-]
uses
  TypInfo;

procedure Form1.Pintar;
var
  I: Integer;
  Info: PPropInfo;

begin
  for I := 0 to ComponentCount -1 do
  begin
    Info := GetPropInfo(Components[i], 'Color');
    if Info <> nil then SetPropValue(Components[i], 'Color', clGreen);
  end;
end;

De cualquier forma tendrás el problema de que precisamente hay componentes como un TButton que no pueden pintarse. Creo que tu método de la transparencia estaba mejor.

// Saludos

[Cabanyaler]

... bueno, en principio y hasta ahora no he encontrado nada mejor, no obstante si encuentreo algo mejor, lo publicaré, tato si es encontrado por mi, tanto si es presentado por algún compañero.
Gracias a todos.