Para Antonio - Combobox + bkeydown

[Rossine]

Olá Antonio,

Veja no exemplo abaixo quando eu teclo "ESC" no GET ele me retorna a tecla pressionada. Já no COMBOBOX isto não está funcionando. Como fazer isto funcionar ?

Code: Select all | Expand

#include "fivewin.ch"function main()   local oDlg, cCombo := "2", oCombo, oGet, cGet := space(10)   local aItems := { "1", "2", "3" }   DEFINE DIALOG oDlg FROM 2, 2 TO 18, 60 TITLE "Test" ;      STYLE nOr( DS_MODALFRAME, WS_POPUP, WS_CAPTION, WS_SYSMENU, 4 )   @ 1, 1 get      oGet   var cGet   SIZE 50, 12   oGet:bkeydown := { |nKey| msgstop( nKey ) }   @ 2, 2 COMBOBOX oCombo var cCombo ITEMS aItems SIZE 200, 100   oCombo:bkeydown := { |nKey| msgstop( nKey ) }   ACTIVATE DIALOG oDlg CENTEREDreturn nil

Obrigado,

Rossine.

[Rossine]

Olá Antonio,

Eu fiz estas mudanças em COMBOBOX.PRG e funcionou

Code: Select all | Expand

...   METHOD KeyDown( nKey, nFlags )   METHOD GetDlgCode( nLastKey )...//----------------------------------------------------------------------------//METHOD KeyDown( nKey, nFlags ) CLASS TComboBox   if ::bChange != nil      Eval( ::bChange, nKey, nFlags, Self )   endifreturn Super:KeyDown( nKey, nFlags )//----------------------------------------------------------------------------//METHOD GetDlgCode( nLastKey ) CLASS TComboBox   if Len( ::oWnd:aControls ) == 1      return DLGC_WANTALLKEYS   endif  ::oWnd:nLastKey = nLastKeyreturn DLGC_WANTALLKEYS//----------------------------------------------------------------------------//

Se isto estiver correto, seria possível incluir esta mudanças em FWH ?

Obrigado e abraços,

Rossine.

[Antonio Linares]

Rossine,

La tecla ESC se ruta al contenedor, es decir, a la caja de diálogo.

Si cambias GetDlgCode() entonces si se la das al control, pero no es un comportamiento estandard.

[Rossine]

OK Antonio

Gracias,

Rossine.