FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
Identificar el Tabulador
Solo quiero saber con que número ó palabra puedo referenciar el TAB, esto lo quiero por que solo valido el Enter=13 en el OnkeyDown, y ya probe esto pero no me funciono: if (key=13) or (key=VK_TAB) then
de ante mano Gracias.... |
#2
|
||||
|
||||
Cita:
En cuanto a la forma de referirte a la tecla TAB esa es la correcta, sólo que en éste punto no te sirve como te he comentado antes. Si derivas el componente TEdit puedes redefinir el mensaje
y programar algo como lo que estabas haciendo tú:
verás como en éste caso sí funciona.
__________________
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. |
#3
|
||||
|
||||
oki
Sr. Germán Estévez, ya probe lo que me dijo perp en donde se declará el siguiente procedimiento:
procedure WMKeyUp(var Message: TWMKeyUp); message WM_KEYUP; Ya lo declare en el public de la forma, en private, me lo acepta pero me marca error "Unsatisfied Forward", por lo que añado el cuerpo de este mismo procedimiento y después me marca el error en "message WM_KEYUP;", en que estoy mal???? |
#4
|
||||
|
||||
Bueno, como la unit es pequeña la pongo completa.
Este sería el .PAS correspondiente a un nuevo componente derivado de un Edit que detecta la punsación de la tecla TAB.
Cosas que debes mirar: (1) Si te fijas en el método register yo lo instalo en la paleta NoSirve, cambia ésto con el nombre de la paleta donde desees que te aparezca (Standard, Additional,...) (2) Al redefinir el mensaje se muestra un cuadro de diálogo y psteriormente se llama a inherited (para que haga el comportamiento standard, es decir pasar al siguiente control como hace el TAB siempre). (3) Para que sea funcional, puede instalarlo en un package existente (el de usuario) o crearte un package nuevo (File/New/Other/Package) añadirle ésta Unit e instalarlo. Un saludo.
__________________
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. |
#5
|
||||
|
||||
oki
Gracias por su respuesta, lo voy a probar.....!!!!
|
#6
|
||||
|
||||
????
Entonces tendría que hacerlo por cada componente que tengo, lo que pasa es que mezclo los BdEdit, Edit, ComboBox y ListBox, No es posible Cachar el TAB de otra forma, es decir que cualquier componente sin necesidad de crear nuevos componentes ó bien de los mismos que uso, modificarlos, agregandoles el código que me proporcionó usted????
|
|
|
|