Fórum Dúvida em rotina que troca cor de edits #374830

procedure TFormPrincipal.ColorControl(Sender: TObject); 
var 
  I: integer; 
begin 
  with Screen.ActiveForm do 
  begin 
    for I:= 0 to ComponentCount-1 do 
    begin 
      if (Components[I] is TCustomEdit) then 
        with (Components[I] as TCustomEdit) do
        begin 
          if (Color<>clInfoBk) and (Tag=0) then
          begin
            if Focused then 
              Color := clActiveBorder 
            else 
              Color := clWindow; 
          end;
        end; 
    end; 
  end; 
end; 

 TMeuComponente = class(TControl)
  public
    property Color;

procedure TFMCadCargos.FocoAlterado(Sender: TObject);
begin
  if Componente <> nil then
    try
    begin
//      TMeuComponente(Componente).Color := CorSemFoco;
      TMeuComponente(Componente).Color := CorAnterior;
      TMeuComponente(Componente).Font.Style:= [];
     end;
    except
    end;

  if Screen.ActiveForm.ActiveControl is TWinControl then
    try
      CorAnterior := TMeuComponente(Screen.ActiveForm.ActiveControl).Color;
      TMeuComponente(Screen.ActiveForm.ActiveControl).Color := CorComFoco;
      TMeuComponente(Screen.ActiveForm.ActiveControl).Font.Style:= [fsbold];
      Componente := Screen.ActiveForm.ActiveControl;
    except
    end; 
end;

procedure TFMCadCargos.FormDestroy(Sender: TObject);
begin
  Screen.OnActiveControlChange := nil; 
end;

procedure TFMCadCargos.FormCreate(Sender: TObject);
begin
  Screen.OnActiveControlChange := FocoAlterado; 
end;