The get object in combobox does not jump to next control when len get full.
What to do?
Board index FiveWin for Harbour/xHarbour get combobox
Try this:
oCombo:bChange = { || If( oCombo:oGet:TypeOut, oCombo:oWnd:GoNextCtrl( oCombo:hWnd ),) }
Antonio Linares wrote:Try this:
oCombo:bChange = { || If( oCombo:TypeOut, oCombo:GoNextCtrl( oCombo:hWnd ),) }
Not Solved...
little change in code: "oGet:TypeOut" for "oGet:TypeOut", but, not go next control.
text in oGet is full select and do not go next.
see in image:
Please check if you ear the beep:
oCombo:bChange = { || If( oCombo:oGet:oGet:TypeOut, ( MsgBeep(), oCombo:oWnd:GoNextCtrl( oCombo:hWnd ) ),) }
Antonio Linares wrote:Please check if you ear the beep:
oCombo:bChange = { || If( oCombo:TypeOut, ( MsgBeep(), oCombo:GoNextCtrl( oCombo:hWnd ) ),) }
No Beep. Not call function.
Any Solution ???
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?
press ENTER key, do not execute GoNextCtrl too.
for solve this problem, I changed Method GetKeyChar() in TComboBox Class.
for solve this problem, I changed Method GetKeyChar() in TComboBox Class.
//----------------------------------------------------------------------------//
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