Evitar que ListBox se salga con Enter

[FranciscoA]

Hola amigos del foro. Es eso. Hasta ahora se me ocurre usar la Classe TListBox, y casi todo bien... menos el comportamiento de que al oprimir enter se abandona el listado. ¿Cómo hacer para evitar que el cursor abandone el TListBox al oprimir enter?
Créanme, he invertido muchas horas y no doy.
Gracias de antemano.

[FranciscoA]

Somebody?

[Raymundo Islas M.]

Francisco,

No tuve oportunidad de probar, pero el comando LISTBOX tiene la clausula VALID.

Ahi podrias bloquear la salida verificando el input del teclado.


Saludos

[FranciscoA]

Raymundo. Efectivamente escribiendo oLbx:bValid:={|| .f.} no se sale del listado. Pero... hace un efecto de desactivación en los restantes botones del diálogo oDlg que los contiene, menos en el botón de salir. No se por qué. La solución que encontré, aunque no muy elegante, es utilizando __KEYBOARD( CHR(9) ) tantas veces hasta llegar de nuevo al listbox (use oJump y nada. Lo bueno es que me funciona. Agradezco tu ayuda. Saludos.

[FranciscoA]

Bueno... después de muchos otros intentos, encontré la manera más adecuada (creo)
oLbx:oJump := oLbx
Saludos.

[Raymundo Islas M.]

Francisco,

Excelente !!

Que bien que lo hayas solucionado.


Saludos