¡¡¡¡¡ EXACTO !!!!!
Anoche en casa hice lo mismo y.... tachan ¡¡¡ VICTORIA !!!
El código de la unidad para que los TWinControl cambien de color y recuperen el original cuando deje el foco es el siguiente:
Código:
procedure TFormPadre.ActiveControlChanged(sender : TObject);
var
I : Integer;
begin
for I:= 0 to ControlCount -1 do begin
if Controls[i] is TWinControl then begin
if (Controls[i] as TWinControl).Focused then
Controls[i].Color := FCActivo
else
Controls[i].Color := clWindow;
end;
end;
end;
Asi de sencillito.
Un saludo y muchisimas gracias por tu inestimable ayuda.