Fórum Mudar cor do Dbedit quando foco entra e quando sai #344400
11/08/2007
0
Bom dia.
Gostaria de saber se existe alguma maneira de fazer o dbedit mudar de cor quando o foco entrar e mudar quando o foco sair. Já consegui através dos eventos ´OnEnter´ e ´OnExit´, mas num formulario com muitos dbedits fica inviavel.
Obrigado,
Att
Dalton
Dbergkamps10
Curtir tópico
+ 0Posts
11/08/2007
Alcantarus
Primeiramente, declare a secao Public do seu form:
public
Componente: TComponent;
procedure ControlChange(Sender: TObject);
end;
Depois, coloque a seguinte procedure:
procedure TfmBaseCadastro.ControlChange(Sender: TObject);
begin
if Assigned(Componente) then
TDBEdit(Componente).Color := clWindow; // 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 TDBMemo) or (ActiveControl is TDBImage) then
begin
TDBEdit(ActiveControl).Color := $00C2F9FC; // cor com foco
Componente := ActiveControl;
end;
end;
Sem mais,
Abraços,
Alcantarus.
Gostei + 0
11/08/2007
Dbergkamps10
vou testar.
obrigado mesmo.
Gostei + 0
11/08/2007
Dbergkamps10
Mas o problema, é que não sei em qual evento devo disparar a procedure para que possa mudar a cor de todos os edits?
Att
Dalton
Gostei + 0
13/08/2007
Martins
Dispara a mudança de cor nos eventos OnEnter e OnExit do componente.
Gostei + 0
13/08/2007
Emerson Nascimento
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)