Foco do edit em um cadastro

Delphi

02/06/2005

Tenho um cadastro de clientes e gostaria de sempre que for dando o enter mudar a cor do edit (foco) automaticamente.
Hoje faco a mudanca do foco em cada edit mudando a cor qdo entra e qdo sai.
Gostaria de fazer uma funcao que executasse automaticamente.


Mfilho

Mfilho

Curtidas 0

Respostas

Marco Salles

Marco Salles

02/06/2005

Hoje faco a mudanca do foco em cada edit mudando a cor qdo entra e qdo sai.


e isto não é automatico :?: :?: :?:

Gostaria de fazer uma funcao que executasse automaticamente.


Bem , eu não vejo porque que voce quer trocar , mas acho que talvez voce quer incorporar isto tudo em uma unica função

procedure TForm1.EditEnterGeral(Sender: TObject);
begin
Tedit(sender).color:=clInactiveCaption; // escolher qualquer cor
end;

procedure TForm1.EditExitGeral(Sender: TObject);
begin
Tedit(sender).color:=clBtnFace;  //escolher qualquer cor
end;


Nos eventos onEnter e OnExit dos Edits Voce vai Liga-los a Estas Funções


GOSTEI 0
POSTAR