FiveTech Software tech support forums

Code: Select all

#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 CENTERED

return nil

Code: Select all

...
   METHOD KeyDown( nKey, nFlags )

   METHOD GetDlgCode( nLastKey )
...

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

METHOD KeyDown( nKey, nFlags ) CLASS TComboBox

   if ::bChange != nil
      Eval( ::bChange, nKey, nFlags, Self )
   endif

return Super:KeyDown( nKey, nFlags )

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

METHOD GetDlgCode( nLastKey ) CLASS TComboBox

   if Len( ::oWnd:aControls ) == 1
      return DLGC_WANTALLKEYS
   endif

  ::oWnd:nLastKey = nLastKey

return DLGC_WANTALLKEYS

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