Fórum Cores Dbedit #237978
16/06/2004
0
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
Curtir tópico
+ 0
Responder
Posts
16/06/2004
Fred
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;
Responder
Gostei + 0
16/06/2004
Jrjoliv2003
Desculpe a ignorância, mas o que siginifica SENDER?
Valeu a força!!!
JR.
Valeu a força!!!
JR.
Responder
Gostei + 0
17/06/2004
Rômulo Barros
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...
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)