Fórum Mudar cor do componente. #369209

Bom Dia.

O código abaixo muda a cor do dbedit. Pois bem.
funciona somente se eu colocar no form.
gostaria de colocar isso na minha unit de funcoes para que nao precise colocar em todos os forms do sistema.

colocando o mesmo codigo na unit, compila normalmente, porém ao executar a aplicacao, não muda as cores.

como faço isso? fazer o codigo abaixo funcionar na unit de funcoes.

e outra coisa tmb... como faço para que nas procedures deste codigo fazer reconhecer uma variavel publica ?


obrigado.

type
TDBEdit = class(DBCtrls.TDBEdit)
procedure CMEnter(var Msg: TMessage); message CM_ENTER;
procedure CMExit(var Msg: TMessage); message CM_EXIT;
private
corEntrada: TColor;
end;

procedure TDBEdit.CMEnter(var Msg: TMessage);
begin
corEntrada:=color;
Color:=clRed;
inherited
end;

procedure TDBEdit.CMExit(var Msg: TMessage);
begin
Color:=corEntrada;
inherited
end;