Buscar

Como mudar a cor de componentes ao receber o foco

Código

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Graphics, Controls, Forms,
  Dialogs, Mask, DBCtrls, StdCtrls, Classes;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    DBEdit1: TDBEdit;
    procedure CorZe(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  mComponAnt: TComponent;

implementation

{$R *.dfm}

procedure TForm1.CorZe(Sender: TObject);
var
  mComFoco, mSemFoco, mDesativado: TColor;
begin
  mDesativado:= clBtnFace; // cor para quando o componente estiver desativado ou campos somente leitura...
  mSemFoco:= clWindow;     // cor para quando o componente estiver sem Foco
  mComFoco:= clYellow;     // cor para quando o componente estiver Com Foco
  if TDBEdit(ActiveControl).Color <> mDesativado then
  begin
    if Assigned(mComponAnt) then
      if TDBEdit(mComponAnt).Color <> mDesativado then TDBEdit(mComponAnt).Color:= mSemFoco; // cor sem foco
       if (ActiveControl is TEdit) or
          (ActiveControl is TDBEdit) or
          (ActiveControl is TDBCheckBox) or
          (ActiveControl is TDBComboBox) or
          (ActiveControl is TComboBox) or
          (ActiveControl is TDBLookupComboBox) or
          (ActiveControl is TEdit) then
        begin
           TDBEdit(ActiveControl).Color := mComFoco; // cor com foco
           mComponAnt := ActiveControl;
        end;
    end;
end;

{ Esta Procedure não tira a cor de componentes que ja estejam na cor somente leitura...}


procedure TForm1.FormActivate(Sender: TObject);
begin
  Screen.OnActiveControlChange := CorZe;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Screen.OnActiveControlChange := nil;
end;

end.

Publicidade

Vote na dica




Quantidade de votos: 3 votos
Aceitação: 20%


Detalhes da dica

Categoria: Componentes
Adicionada dia: 14/10/09
Por: José Luís Nogueira
Visualizada: 7784 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009