Editbox and Tab key

[spelman]

Hi everyone,
Is it possible to use the tab key in an Editbox control ?
When my user presses the tab key it changes the focus to the next control on the form ...
I'd like the user to be able to set up columns of data within the edit box, which he can only do by using the spacebar to format the text.

[Carlos Britos]

Hi everyone,
Is it possible to use the tab key in an Editbox control ?
When my user presses the tab key it changes the focus to the next control on the form ...
I'd like the user to be able to set up columns of data within the edit box, which he can only do by using the spacebar to format the text.

HI
Try with oEditBox TABSTOP = .F.
Carlos

[Rathinagiri]

No. Tabstop will pass on the editbox and you can't enter into the editbox in natural tab order.

For your problem, you can capture the tab key (using 'on key tab') and verify whether editbox is in focus. If it is, you can manually add the required spaces in the caret position. If the edit box is not is focus you can again simulate the tab key.

[spelman]

Hi Rathi,

Thanks very much for the reply - that should do the trick !

Kind Regards,

Steve

[esgici]

Hi Steve

When you complete, could you share your code with us ?

Regards

--

Esgici

[spelman]

I will do that

[IMATECH]

Prototype:

Code: Select all

DEFINE WINDOW F_SAMPLE...
...
ON KEY TAB ACTION F_RM_On_Key_Tab()
...
END WINDOW

*-------------------------------------*
*F_RM_On_Key_Tab()
*-------------------------------------*
Function F_RM_On_Key_Tab()
  local i := 0
  * Form/Window Name
  local cFrmName := ThisWindow.Name()
  * active control: name
  local cCtrlName := ThisWindow.FocusedControl()

  * Check if sender is a "Editbox"
  IF GetControlType( cCtrlName, cFrmName ) == "EDITBOX" 
    * ADD two spaces to replace key TAB
    FOR i := 1 TO 2
      _PushKey( VK_SPACE )
    NEXT
  ELSE
    * Next Control
    InsertTab()
  ENDIF

Return( Nil )

Credits: Hathinagiri

[Rathinagiri]

Nice prototype. However just inserttab() again to simulate the tab key. Please see below:

Function F_RM_On_Key_Tab()
* Form/Window Name
local cFrmName := ThisWindow.Name()
* active control: name
local cCtrlName := ThisWindow.FocusedControl()

* Check if sender is a "Editbox"
IF GetControlType( cCtrlName, cFrmName ) == "EDITBOX"
? Do anything...
ELSE
inserttab()
ENDIF

Return( Nil )

[IMATECH]

Thanks Hathinagiri !


Sample prototype updated above...


Best regards...