Pulga con combobox...

Hola Javier:

No entiendo, ¿qué esperas qué haga y qué no hace?

Para algunos conceptos teóricos sobre combos, que son controles muy útiles;
pero con sus peculiaridades te aconsejo leas un artículo muy interesante de
Jim Booth que trata del orden de los eventos y pone ejemplos de cosas
"inexplicables aparentemente", relacionados con combos y otros controles.
Incluso comenta aspectos que en su momento fueron reportados como Bugs sin
serlo.

Artículo ¿Cuándo ocurren los eventos?

http://www.portalfox.com/modules.ph...ex&req
=viewarticle&artid&&page=1
(una sola línea)

Saludos,

Ana
"Javier Valverde" escribió en el
mensaje news:0c1d01c3ae17$74f092f0$
Hola gente:

Si han tenido este problema y alguien sabe como
solucionarlo me ayudaría mucho...

Sin embargo creo que es un "PULGON":

1. Corra la siguiente a aplicación.
2. Sin seleccionar un item, abra el combobox desde la
flecha derecha en el combobox.
3. Vaya a cualquier item que usted quiera usando el
iluminado del mouse, sin dar click todavía.
4. Use las teclas direccionales izquierda, derecha,
arriba o abajo y el combo no responde como uno espera.
5. Esto mismo sucede de igual forma si uno no escoge
ningún item (clicking), después de uno usa el iluminado
del mouse y despúes usa las teclas direccionales.


Saludos cordiales,

Javier Valverde

***Programa

CREATE CURSOR test (cfield C(1))
FOR i=1 TO 30
APPEND BLANK
REPLACE cfield WITH CHR(i+32)
NEXT

loFormA = CREATEOBJECT("formA")
loFormA.show(1)

DEFINE CLASS formA AS Form
ADD OBJECT "Combobox1" AS Combobox WITH ;
rowsourcetype = 6, ;
rowsource = "test", ;
left = 10, ;
top = 10

ADD OBJECT "Command1" AS CommandButton WITH ;
Caption = "Load formB", ;
left = 10, ;
top = 50

PROCEDURE Command1.Click
LOCAL loForm
loForm = CREATEOBJECT("formB")
loForm.show(1)
ENDPROC
ENDDEFINE

DEFINE CLASS formB AS Form
ADD OBJECT "Command1" AS CommandButton WITH ;
Caption = "Close", ;
left = 10, ;
top = 50

PROCEDURE Command1.Click
thisform.release
ENDPROC
ENDDEFINE