get combobox

[shark]

The get object in combobox does not jump to next control when len get full.

What to do?

[Antonio Linares]

Try this:

oCombo:bChange = { || If( oCombo:oGet:TypeOut, oCombo:oWnd:GoNextCtrl( oCombo:hWnd ),) }

[shark]

Try this:

oCombo:bChange = { || If( oCombo:oGet:TypeOut, oCombo:oWnd:GoNextCtrl( oCombo:hWnd ),) }

Not Solved...

little change in code: "oGet:TypeOut" for "oGet:oGet:TypeOut", but, not go next control.

text in oGet is full select and do not go next.

see in image:

[Antonio Linares]

Please check if you ear the beep:

oCombo:bChange = { || If( oCombo:oGet:oGet:TypeOut, ( MsgBeep(), oCombo:oWnd:GoNextCtrl( oCombo:hWnd ) ),) }

[shark]

Please check if you ear the beep:

oCombo:bChange = { || If( oCombo:oGet:oGet:TypeOut, ( MsgBeep(), oCombo:oWnd:GoNextCtrl( oCombo:hWnd ) ),) }

No Beep. Not call function.

[shark]

Any Solution ???

[shark]

This command line bellow, call alert function, it´s ok. But... don´t execute GoNextCtrl()

oCombo:bChange = { || If( oCombo:oGet:oGet:TypeOut, ( alert("test"), oCombo:oWnd:GoNextCtrl( oCombo:hWnd ) ),) }

Any Solution?

[shark]

press ENTER key, do not execute GoNextCtrl too.

for solve this problem, I changed Method GetKeyChar() in TComboBox Class.

Code: Select all  Expand view

//----------------------------------------------------------------------------//

METHOD GetKeyChar( nKey ) CLASS TComboBox

   local nAt, cText
   local cSearch

   if nKey == VK_RETURN //   CHANGED HERE BY SHARK
      ::oWnd:GoNextCtrl( ::hWnd )
      return nKey // changed here by shark
   elseif ( nKey == VK_TAB .and. ! GetKeyState( VK_SHIFT ) )
      ::oWnd:GoNextCtrl( ::hWnd )
      return 0
   else
      if nKey == VK_TAB .and. GetKeyState( VK_SHIFT )
         ::oWnd:GoPrevCtrl( ::hWnd )
         return 0
      endif
   endif