Hi,
when combo is open and I press Escape dialog closes.
I expect that only combo closes
Any ideas
Thanks
marco
FUNCTION MAIN()
LOCAL oDlg
LOCAL oCombo
LOCAL cVariab := SPACE( 10 )
DEFINE DIALOG oDlg
@ 1, 1 COMBOBOX oCombo VAR cVariab ITEMS { "AAAAAA", "BBBBBB", "CCCCCC", "DDDDDD", "EEEEEE" }
ACTIVATE DIALOG oDlg CENTER
? "Dialog closed"
RETURN NIL
Hola amigo...
Prueba con un VALID en el ACTIVATE del DIALOG.
Espero te sirva.
Saludos desde Argentina, Esteban.
Marco,
I think that this may be a bug in TCombobox as other apps do close the combobox, not the dialog.
You can try adding this to the KeyChar() method:
if nKey == VK_ESCAPE
::close()
return 0
endif
I'm am not sure if you need to call the ::close() or ::closeUp() method so try both.
Let us know what you find.
Regards,
James
James,
no good
I've tried but ....nothing 
thanks
FUNCTION MAIN()
LOCAL oDlg
LOCAL oCombo
LOCAL cVariab := SPACE( 10 )
LOCAL CbRet := .T.
DEFINE DIALOG oDlg
@ 1, 1 COMBOBOX oCombo VAR cVariab ITEMS { "AAAAAA", "BBBBBB", "CCCCCC", "DDDDDD", "EEEEEE" }
oCombo:bGotFocus := { || CbRet := .F. }
oCombo:bLostFocus := { || CbRet := .T. }
ACTIVATE DIALOG oDlg CENTER VALID CbRet
? "Dialog closed"
RETURN NILRegards,
Michel D.
Genk (Belgium)
I use : FiveWin for (x)Harbour v. 25.12 - Harbour 3.2.0 (May 2025) - xHarbour Builder (January 2020) - Bcc773
Meanwhile I did the test myself but I noticed that I couldn't open the combobox anymore.
But if I click on the combobox (unfortunately without opening), pushing the Escape-key doesn't end the dialog box anymore. After having clicked on another field, the dialog box does end again if I push the Escape-key.
So looking for a solution in this direction might be the right one.
Good luck.
Regards,
Michel D.
Genk (Belgium)
I use : FiveWin for (x)Harbour v. 25.12 - Harbour 3.2.0 (May 2025) - xHarbour Builder (January 2020) - Bcc773
ACTIVATE DIALOG oDlg CENTER VALID ! GetASyncKey(VK_ESCAPE)Armando,
The problem is that the first time you press Esc the combobox should close, and then if you press Esc again, the dialog should close. Your VALID clause will prevent the dialog from closing when pressing Esc.
I did some testing and the combobox is getting closed, but then the dialog is also closed. So, I now think the problem is in the TDialog:KeyChar() method.
James
OK, I have found the solution. Add this line to the method definitions in TCombobox.
METHOD KeyDown inline ::close(), 1
Antonio, will you add this to the FW source?
Regards,
James
METHOD KeyDown( nKey, nFlags ) CLASS TComboBox
if nKey == VK_ESC
::Close()
return 1
endif
return Super:KeyDown( nKey, nFlags )Antonio,
Of course. I didn't think it through.
I tried your solution and it seems to be working. The incremental search is working as are the up and down arrows, home, end, pg dn, and pg up keys.
You do need to change VK_ESC to VK_ESCAPE.
James
James,
Already implemented for next FWH build.
Thanks! 
about how many beautiful minds 
