FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Pasar al siguiente Edit al llegar a maxlength
Tengo un formulario lleno de TEdits y quiero que al llegar a su capacidad maxima, pase el foco al siguiente edit, asi para todos los edit que tengo de un dentro de un panel. Hay alguna forma de hacerlo de forma general para no repetir el codigo para cada componente? o mejor aun, existe algun componente que lo tenga implementado?
Muchas gracias.
__________________
Intentando hacer algo con Delphi 7 y Firebird 1.5 |
#2
|
||||
|
||||
si quieres tener muchas líneas en un edit, es mejor que utilizes el TMemo, o el TRichEdit...
de cualquier manera, el código general tendría que ser algo así como: Tendrías que colocar el código en el primer TEdit y todos los demás apuntando a el mismo evento.
no he probado este código y/o tal vez alguien tenga una mejor idea, pero de cualquier manera creo que sería mejor que utilizaras un Tmemo o un TRichEdit
__________________
|
#3
|
||||
|
||||
Cita:
Si no quieres hacer la asignación "a mano" puedes hacerla por código al crear/visualizar el form por ejemplo (utilizando el OnChange); Es lo mismo que harías "a mano" asignando todos los eventos al mismo procedimiento, pero de forma automática.
La otra opción es crear un componente (derivado de TEdit o TCustomEdit) y añadirle la propiedad que te gestione éste comportamiento. La implementación básicamente es la misma realizada arriba. Puedes implementar el comportamiento sobreescribiendo el método Change de TCustomEdit.
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#4
|
||||
|
||||
Hola:
Yo prefiriría usar setfocus en caso de no ser siempre el próximo control quien deba tener el control (Foco). Hasta Luego -
__________________
No todo es como parece ser... |
#5
|
||||
|
||||
Ya esta solucionado, muchas gracias Neftali el código
Funciono perfectamente
__________________
Intentando hacer algo con Delphi 7 y Firebird 1.5 |
|
|
|