Cores Dbedit
Como posso colocar uma rotina em todos os dbedit´s de um formulário.
Gostaria que quando o campo receber o foco ficasse de uma cor. Quando perder o foco ficar com outra cor.
Como colocar a cor eu achei. Não sei como fazer essa rotina ficar em todos os edit´s. ´Será que terei q fazer um por um?
Valeu!!!
JR.
Gostaria que quando o campo receber o foco ficasse de uma cor. Quando perder o foco ficar com outra cor.
Como colocar a cor eu achei. Não sei como fazer essa rotina ficar em todos os edit´s. ´Será que terei q fazer um por um?
Valeu!!!
JR.
Jrjoliv2003
Curtidas 0
Respostas
Fred
16/06/2004
selecione todos os DBEdits do seu formulario e va no evento OnEnter e digite
TDBEdit(Sender).Color := clYellow;
depois no evento onExit digite
TDBEdit(Sender).Color := clWindow;
TDBEdit(Sender).Color := clYellow;
depois no evento onExit digite
TDBEdit(Sender).Color := clWindow;
GOSTEI 0
Jrjoliv2003
16/06/2004
Desculpe a ignorância, mas o que siginifica SENDER?
Valeu a força!!!
JR.
Valeu a força!!!
JR.
GOSTEI 0
Rômulo Barros
16/06/2004
Sender representa o objeto que chamou o método ´Grosseiramente falando´.
Ex:
EventoOnClickEdit(Sender : TObject)
Begin
Showmessage(TEdit(Sender).Name);
End;
Este comando irá exibir o nome do componente [color=red:d180dcda9d][size=18:d180dcda9d]q foi cliclado.[/size:d180dcda9d][/color:d180dcda9d]
Agora, em todos os seus Edits, aponte o evento OnClick para o evento do edit q foi configurado.
pronto...
Ex:
EventoOnClickEdit(Sender : TObject)
Begin
Showmessage(TEdit(Sender).Name);
End;
Este comando irá exibir o nome do componente [color=red:d180dcda9d][size=18:d180dcda9d]q foi cliclado.[/size:d180dcda9d][/color:d180dcda9d]
Agora, em todos os seus Edits, aponte o evento OnClick para o evento do edit q foi configurado.
pronto...
GOSTEI 0