Carlos Arevalo
13-10-2004, 17:07:21
Que tal amigos como están, espero que bien.
De nuevo tratando un problema con el control tcombobox lo explico a continuación.
El requerimiento es el sig:
Que el componente tcombobox al recibir el enfoque y posteriormente al presionar una tecla se expanda la lista y se pueda seleccionar el ítem presionando la tecla enter inmediatamente debe saltar al proximo control.
Para abrir la lista utilizo la propiedad:
tcombobox(sender).DroppedDown:=true
Pero al seleccionar el ítem de la lista y presionar la tecla enter se cierra la lista y no salta al próximo control seguidamente presiono la tecla enter de nuevo y la lista se abre y se cierra y esta ves si salta al próximo control.
Para que se desplace al presionar la tecla enter utilizo la función:
SelectNext(TWinControl(Sender), GetKeyState(VK_SHIFT) and $80 = 0, true)
luego pensando cual seria el problema abrí un nuevo proyecto y coloque en el form dos tcombobox y habilite en ellos la propiedad tcombobox(sender).DroppedDown:=true y sin agregar ninguna línea de código mas y ningún otro control ejecute la aplicación para comprobar el funcionamiento de esta propiedad y en efecto cada vez que se presiona la tecla enter estando el foco en el tcombobox la lista se abre y se cierra.
Como se podría implementar mi requerimiento y corregir esta falla.
De nuevo tratando un problema con el control tcombobox lo explico a continuación.
El requerimiento es el sig:
Que el componente tcombobox al recibir el enfoque y posteriormente al presionar una tecla se expanda la lista y se pueda seleccionar el ítem presionando la tecla enter inmediatamente debe saltar al proximo control.
Para abrir la lista utilizo la propiedad:
tcombobox(sender).DroppedDown:=true
Pero al seleccionar el ítem de la lista y presionar la tecla enter se cierra la lista y no salta al próximo control seguidamente presiono la tecla enter de nuevo y la lista se abre y se cierra y esta ves si salta al próximo control.
Para que se desplace al presionar la tecla enter utilizo la función:
SelectNext(TWinControl(Sender), GetKeyState(VK_SHIFT) and $80 = 0, true)
luego pensando cual seria el problema abrí un nuevo proyecto y coloque en el form dos tcombobox y habilite en ellos la propiedad tcombobox(sender).DroppedDown:=true y sin agregar ninguna línea de código mas y ningún otro control ejecute la aplicación para comprobar el funcionamiento de esta propiedad y en efecto cada vez que se presiona la tecla enter estando el foco en el tcombobox la lista se abre y se cierra.
Como se podría implementar mi requerimiento y corregir esta falla.