Disculpen, espero me puedan ayudar, lo que necesito es saver de que forma puedo cambiar de color en los DBEdit o Edit al tener el foco dicho control y al salir del mismo cambiar al color que tenia antes.
De antemano muchas gracias por su ayuda...
Publicado:
Mie Ago 03, 2011 8:37 am
alonsojpd Administrador/Moderador
Registrado: Sep 16, 2003 Mensajes: 2687
Asunto: Re: Como puedo cambiar de color un DBEdit
Anuncios
frankolar escribió:
Disculpen, espero me puedan ayudar, lo que necesito es saver de que forma puedo cambiar de color en los DBEdit o Edit al tener el foco dicho control y al salir del mismo cambiar al color que tenia antes.
De antemano muchas gracias por su ayuda...
Hola Frankolar, te comento cómo hacer esto:
1. En el evento OnEnter del componente (sea el DBEdit o el Edit):
Código:
procedure TformGUbicacion.txtNombreEnter(Sender: TObject);
begin
TEdit(sender).Color := clMoneyGreen;
end;
En el caso anterior te lo explico para un TEdit, para un TDBEdit es lo mismo:
TDBEdit(sender).Color := clMoneyGreen;
Esto haría que cuando se enfocara el TEdit "txtNombre" el fondo aparecerá en verde.
2. Para el caso de cuando se pierde el foco:
Código:
procedure TformGUbicacion.txtNombreExit(Sender: TObject);
begin
TEdit(sender).Color := clWindow;
end;
Puede publicar nuevos temas en este foro No puede responder a temas en este foro No puede editar sus mensajes en este foro No puede borrar sus mensajes en este foro No puede votar en encuestas en este foro
Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A