Alterar cor do dbedit


Unit ColorDBEdit;

interface
uses
SysUtils, Classes, Controls, StdCtrls, Mask, DBCtrls, Graphics;

type
        TColorDBEdit = class(TDBEdit)
        private
        FCorFoco:TColor;
        FCorAntiga:TColor;
        { Private declarations }
        protected
        procedure DoEnter;override;
        procedure DoExit;override;
        { Protected declarations }
        public
        Constructor Create(Aonwer: TComponent);override;
        { Public declarations }
        published
        property CorFoco:Tcolor read FCorFoco write FCorFoco;
        { Published declarations }
end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Cor TDBEdit', [TColorDBEdit]);
end;

{ TColorDBEdit }
constructor TColorDBEdit.Create(Aonwer: TComponent);
begin
    inherited;
    FCorFoco:=clInfoBk;   // Aqui pode-se escolher qualquer Cor
end;

procedure TColorDBEdit.DoEnter;
begin
    inherited;
    FCorAntiga:=Color; //Salva Cor Antiga
    Color:=FCorFoco;   // Coloca Cor Escolhida no Create
end;

procedure TColorDBEdit.DoExit;
begin
    Color:=FCorAntiga; // Volta Cor Antiga
    inherited;
end;

end.
Alterar cor do dbedit

Utilizado para quando o componente receber o foco muda de cor

Artigos relacionados
