FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
#1
|
||||
|
||||
shoulder,
Siguiendo la idea de ecfisa del uso de RTTI, revisa este código: El código anterior cambia el color de cualquier control que tenga el focus activo si y solo si este tiene implementada la propiedad color. Esto lo hace de forma genérica por medio de RTTI (Run-Time Type Information) y la propiedad OnActiveControlChange que permite definir un manejador de evento para controlar el cambio de focus en un form. El código anterior se encuentra implementado en el siguiente link: http://terawiki.clubdelphi.com/Delph...e+con+RTTI.rar Espero sea útil Nelson. |
#2
|
||||
|
||||
Hola nlsgarcia.
Se hace ineficiente recorrer todos los controles del form dentro del evento que se dispara cada vez que cambia el control activo, para así obtener quien tiene el foco. Ese dato lo podemos tomar de la propiedad Screen.ActiveControl, que dentro del evento OnActiveControlChange, ya tiene al nuevo portador del foco de entrada. Basta con salvar previamente el control que lo poseía para restaurarlo al estado anterior y luego darle el color deseado al nuevo control activo. Que, si ocurre otro cambio de foco, pasará a ser el control que lo perdió y así, cíclica y sucesivamente con cada uno de ellos. Saludos.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#3
|
||||
|
||||
ecfisa,
Entiendo tu punto, pero en el ejemplo propuesto el procesamiento es tan rápido y el código tan compacto que creo que es válido en este caso particular. Es un compromiso entre eficiencia relativa y simplicidad de código. Gracias por tus comentarios, los tendré muy en cuenta Nelson. |
#4
|
|||
|
|||
Tab order
Gracias a Todos!!!.
|
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
order by descendente??? | pacuuy | SQL | 2 | 08-01-2008 00:13:17 |
Datetime y Order by. | ppb | SQL | 2 | 20-06-2005 13:16:14 |
Tab Order | kepacha | Varios | 5 | 31-01-2005 13:32:40 |
Order by | VRO | SQL | 6 | 31-08-2004 08:17:05 |
Order by ...... | chutipascal | Firebird e Interbase | 8 | 24-06-2003 14:46:21 |
|