Buscar por:

Altera cor do dbedit

Código

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 }

{ 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.