Poner color background del form cuando pierde el foco
 

Hola, quisiera pulir una presentación. Veamos:

Ayer se me ocurrió que cuando tengo varios formularios en pantalla me gusta ver el que tiene el foco de forma resaltada sobre los demas, en color e intensidad. Eso lo he conseguido con el código que presento, el cual hace transparanete el form principal desde el que se visualiza el form secundario.

Código Delphi [-]
   // Pongo semitransparaente el form desactivo
   FPrincipal.AlphaBlendValue := 225;
   FPrincipal.AlphaBlend      := True;

Pero eso no es del todo lo que deseo.

Lo que me gustaría es NO ponerlo en transparente para da la apariencia de que se encuentra en un segundo plano, sino el que pierda un poco la intensidad o brillo cuando pase al segundo plano.

Está claro que puedo cambiarle el color a un tono un tanto más oscuro, pero si hago eso debo hacerlo para todos los controles que existen en el Form que no tienen la propiedad ParentColor, además de los colores de los edits y demás controles como los botones etc, que no tienne la propiedad Color.

Había pensado, pero no he encontrado, poner algún componente como una capa por encima de todo el form que se conserve por defecto invisible, o bien crearlo en tiempo de ejecución, que cuando el foco pase a otro form visualizar dicha capa translucida y que dé una apariencia de apagado o Background del principal, pero no he encontrado ninguno.

¿Alguien conoce como poner en background el color del form cuando pierde el foco o conseguir este efecto de algún modo?

Gracias, por aguantar el rollete. ;)

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;

Si, gracias, pero.... :(

...aunque no había pensado en la recursividad :confused: (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?. :eek:

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

Muchas gracias a todos y especialmente a EduarCol. :p

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

... 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.