Procedimiento global
tengo varios forms con varios controles tedit y quiero que cuando el cursor se pose sobre un tedit cambie el color de fondo y cuando pierda el foco retorne a su color original.
mi pregunta es: se puede crear una rutina que controle esto y que no se coloque en el evento onenter y en onexit de cada control. gracias. |
Lo que puedes hacer, es apuntar todos los OnEnter y OnExit a un solo evento (En este caso, uno por cada evento). En tiempo de diseño, seleccionas todos los componentes, vas al evento, haces doble click, y creará un solo evento al que apuntarán todos los controles seleccionados. Luego puedes utilizar el parámetro Sender para saber cuál es el control que ha llamado al evento.
Código:
procedure EditsOnEnter(Sender: TObject) |
Hace no mucho tratamos un tema similar pero no recuerdo el hilo así que repetiré.
La opción de dca es del todo correcta pero si estos eventos los usas para otro tipo de cosas como validaciones por ejemplo, tiene el inconveniente de tener que recurrir a una serie de condicionales para determinar sobre qué control hacer la validación. Código:
if Sender = Edit1 then Código:
type Afortunadamente existe un truco para evitar esto: Antes de la declaración del formulario declaras tu clase dándole el mismo nombre que el edit estandard: Código:
type Al hacerlo así, Delphi instancia los objetos Edit que ya tenías a la nueva clase TEdit con el comportamiento requerido. // Saludos |
La franja horaria es GMT +2. Ahora son las 15:01:27. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi