Fórum Preciso mudar a cor de DBEdit..?? #190708

CORRIGINDO A PERGUNTA....

Olá Pessoal,

Preciso mudar a cor dos DBEdit de um Form, ao entrar muda e ao sair volta ao que estava antes. Como são vários deles no Form, gostaria de saber se tem uma maneira de fazer isso de uma só vez, sem precisar tratar um a um.
Alguém pode me ajudar, por favor?

Obrigado.

E aí pessoas, blz?
Segue abaixo um código que talvez resolva o seu problema...
Obs.: Ele está 1/2 abreviado!


//Adicione StdCtrls à cláusula Uses
uses
...Forms, Dialogs, StdCtrls;
...
//Declaração das procedure
procedure FormCreate(Sender: TObject);
procedure ControlChange(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
ComponAnt: TDBEdit; //Variável que receberá o compoente anterior
...
//Implementação das procedures
procedure TForm1.ControlChange(Sender: TObject);
begin
if Assigned(ComponAnt) then
ComponAnt.color:=clWindow;
if ActiveControl is TDBEdit then
begin
TDBEdit(ActiveCOntrol).color:=clNavy;
ComponAnt:=TDBEdit(ActiveControl);
end
else
ComponAnt:=nil;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Screen.OnActiveControlChange:=ControlChange;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
Screen.OnActiveControlChange:=nil;
end;

end.

Espero que seja útil

André Hofstátter :)