FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Evitar que ListBox se salga con Enter
Posts: 2170
Joined: Fri Jul 18, 2008 01:24 AM
Evitar que ListBox se salga con Enter
Posted: Wed Jun 30, 2010 03:11 AM

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.

Francisco J. Alegría P.

Chinandega, Nicaragua.



Fwxh-MySql-TMySql
Posts: 2170
Joined: Fri Jul 18, 2008 01:24 AM
Re: Evitar que ListBox se salga con Enter
Posted: Wed Jun 30, 2010 08:30 PM

Somebody?

Francisco J. Alegría P.

Chinandega, Nicaragua.



Fwxh-MySql-TMySql
Posts: 592
Joined: Tue Mar 14, 2006 11:34 PM
Re: Evitar que ListBox se salga con Enter
Posted: Wed Jun 30, 2010 11:25 PM

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

FWH 10.6 + xHarbour + Borland 582
Posts: 2170
Joined: Fri Jul 18, 2008 01:24 AM
Re: Evitar que ListBox se salga con Enter
Posted: Thu Jul 01, 2010 06:49 PM

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.

Francisco J. Alegría P.

Chinandega, Nicaragua.



Fwxh-MySql-TMySql
Posts: 2170
Joined: Fri Jul 18, 2008 01:24 AM
Re: Evitar que ListBox se salga con Enter
Posted: Thu Jul 01, 2010 07:42 PM

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

Francisco J. Alegría P.

Chinandega, Nicaragua.



Fwxh-MySql-TMySql
Posts: 592
Joined: Tue Mar 14, 2006 11:34 PM
Re: Evitar que ListBox se salga con Enter
Posted: Thu Jul 01, 2010 10:42 PM

Francisco,

Excelente !!

Que bien que lo hayas solucionado.

Saludos

FWH 10.6 + xHarbour + Borland 582

Continue the discussion