Fórum Como melhorar a Função #355462

function MdCor(cor: Tcolor; estilo: TFontStyles): string;
begin
  if Self.ActiveControl is TEdit then
  begin
    TEdit(Self.ActiveControl).Font.Style := estilo;
    TEdit(Self.ActiveControl).color := cor;
  end;
end;

procedure TForm1.FocoAlterado(Sender: TObject);
begin
  if Componente <> nil then
    try
      TMeuComponente(Componente).Color := CorSemFoco;
    except
    end;

  if Screen.ActiveForm.ActiveControl is TWinControl then
    try
      TMeuComponente(Screen.ActiveForm.ActiveControl).Color := CorComFoco;
      Componente := Screen.ActiveForm.ActiveControl;
    except
    end;
end;

unit Unit1; 

interface 

uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls, ExtCtrls, ComCtrls, CheckLst, Mask, Grids; 

type 
  TMeuComponente = class(TControl) 
  public 
    property Color; 
  end; 

  TForm1 = class(TForm) 
    Edit1: TEdit; 
    Memo1: TMemo; 
    CheckBox1: TCheckBox; 
    ComboBox1: TComboBox; 
    RadioButton1: TRadioButton; 
    MaskEdit1: TMaskEdit; 
    RichEdit1: TRichEdit; 
    Button1: TButton; 
    procedure FocoAlterado(Sender: TObject); 
    procedure FormDestroy(Sender: TObject); 
    procedure Button1Click(Sender: TObject); 
    procedure FormCreate(Sender: TObject); 
  private 
    { Private declarations } 
    Componente: TWinControl; 
    CorAnterior: TColor; 
  public 
    { Public declarations } 
  end; 

const 
  CorSemFoco = clWindow; 
  CorComFoco = clBlue; 

var 
  Form1: TForm1; 

implementation 

uses unit2; 

{$R *.dfm} 

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

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

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

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  Application.CreateForm(TForm2,Form2); 
  Form2.Show; 
end; 

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

end. 

unit FormLogin;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, XP_Form, StdCtrls, Buttons, Registry, DB, ADODB;

type
  TMeuComponente = class(TControl) 
  public
    property Color;
  end;
  
  TFrmLogin = class(TForm)
    Conex: TADOConnection;
    FrmXp: TtfXPForm;
    GpLogin: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    UserLog: TEdit;
    UserPass: TEdit;
    BtOk: TBitBtn;
    BtConfig: TBitBtn;
    BtCan: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure BtConfigClick(Sender: TObject);
    procedure BtOkClick(Sender: TObject);
    procedure BtCanClick(Sender: TObject);
    procedure FocoAlterado(Sender: TObject); 
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    Componente: TWinControl; 
    CorAnterior: TColor;
  public
    { Public declarations }
  end;

const 
  CorSemFoco = clWindow; 
  CorComFoco = clBlue;
  
var
  FrmLogin: TFrmLogin;
  Registro : TRegistry;

implementation

uses FormSplash, FormConfig;

{$R *.dfm}

procedure TFrmLogin.FocoAlterado(Sender: TObject);
begin
  if Componente <> nil then 
    try
      TMeuComponente(Componente).Color := CorAnterior;
    except 
    end; 

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

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

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

end.