%TABSTOP Failure, Get The Ding Instead

[colin glenn]

If an DDT dialog do you have a message loop if you did the DIALOG SHOW with the MODELESS option?

My bad, it's me, I will need to process the tab key myself via the main message loop:

#PBFORMS CREATED V1.51
'------------------------------------------------------------------------------
' The first line in this file is a PB/Forms metastatement.
' It should ALWAYS be the first line of the file. Other
' PB/Forms metastatements are placed at the beginning and
' end of "Named Blocks" of code that should be edited
' with PBForms only. Do not manually edit or delete these
' metastatements or PB/Forms will not be able to reread
' the file correctly.  See the PB/Forms documentation for
' more information.
' Named blocks begin like this:    #PBFORMS BEGIN ...
' Named blocks end like this:      #PBFORMS END ...
' Other PB/Forms metastatements such as:
'     #PBFORMS DECLARATIONS
' are used by PB/Forms to insert additional code.
' Feel free to make changes anywhere else in the file.
'------------------------------------------------------------------------------

#COMPILE EXE
#DIM ALL

'------------------------------------------------------------------------------
'   ** Includes **
'------------------------------------------------------------------------------
#PBFORMS BEGIN INCLUDES
%USEMACROS = 1
#IF NOT %DEF(%WINAPI)
    #INCLUDE "WIN32API.INC"
#ENDIF
#IF NOT %DEF(%COMMCTRL_INC)
    #INCLUDE "COMMCTRL.INC"
#ENDIF
#INCLUDE "PBForms.INC"
#PBFORMS END INCLUDES
'------------------------------------------------------------------------------

'------------------------------------------------------------------------------
'   ** Constants **
'------------------------------------------------------------------------------
#PBFORMS BEGIN CONSTANTS
%IDC_POSITIONX   = 1001
%IDC_POSITIONY   = 1003
%IDD_MAINWINDOW  =  102
%IDD_TESTTABBING =  101
%IDT_POSITIONX   = 1004
%IDT_POSITIONY   = 1005
#PBFORMS END CONSTANTS
'------------------------------------------------------------------------------

'------------------------------------------------------------------------------
'   ** Declarations **
'------------------------------------------------------------------------------
DECLARE CALLBACK FUNCTION ShowChildDialogProc()
DECLARE FUNCTION ShowChildDialog(BYVAL hParent AS DWORD) AS LONG
DECLARE CALLBACK FUNCTION ShowMainWindowProc()
DECLARE FUNCTION ShowMainWindow(BYVAL hDlg AS DWORD) AS LONG
#PBFORMS DECLARATIONS
'------------------------------------------------------------------------------

'------------------------------------------------------------------------------
'   ** Main Application Entry Point **
'------------------------------------------------------------------------------
FUNCTION PBMAIN()
    PBFormsInitComCtls (%ICC_WIN95_CLASSES OR %ICC_DATE_CLASSES OR _
        %ICC_INTERNET_CLASSES)

    ShowMainWindow %HWND_DESKTOP
END FUNCTION
'------------------------------------------------------------------------------

'------------------------------------------------------------------------------
'   ** CallBacks **
'------------------------------------------------------------------------------
CALLBACK FUNCTION ShowChildDialogProc()

    SELECT CASE AS LONG CBMSG
        CASE %WM_INITDIALOG
            ' Initialization handler
            CONTROL SET TEXT CB.HNDL, %IDT_POSITIONX, "10"
            CONTROL SET TEXT CB.HNDL, %IDT_POSITIONY, "-5"

        CASE %WM_NCACTIVATE
            STATIC hWndSaveFocus AS DWORD
            IF ISFALSE CBWPARAM THEN
                ' Save control focus
                hWndSaveFocus = GetFocus()
            ELSEIF hWndSaveFocus THEN
                ' Restore control focus
                SetFocus(hWndSaveFocus)
                hWndSaveFocus = 0
            END IF

        CASE %WM_COMMAND
            ' Process control notifications
            SELECT CASE AS LONG CBCTL

            END SELECT
    END SELECT
END FUNCTION
'------------------------------------------------------------------------------

'------------------------------------------------------------------------------
'   ** Dialogs **
'------------------------------------------------------------------------------
FUNCTION ShowChildDialog(BYVAL hParent AS DWORD) AS LONG
    LOCAL lRslt AS LONG

#PBFORMS BEGIN DIALOG %IDD_TESTTABBING->->
    LOCAL hDlg  AS DWORD

    DIALOG NEW PIXELS, hParent, "Test Tabbing", 0, 0, 256, 182, _
        %WS_CHILD OR %WS_CLIPCHILDREN OR %WS_VISIBLE _
        OR %DS_NOFAILCREATE OR %DS_SETFONT, _
        %WS_EX_STATICEDGE OR %WS_EX_LEFT OR %WS_EX_LTRREADING, TO hDlg
    CONTROL ADD "msctls_updown32", hDlg, %IDC_POSITIONX, "PositionX", 78, 52, _
        14, 20, %WS_CHILD OR %WS_VISIBLE OR %WS_TABSTOP OR %UDS_SETBUDDYINT
    CONTROL ADD "msctls_updown32", hDlg, %IDC_POSITIONY, "PositionY", 78, 78, _
        14, 20, %WS_CHILD OR %WS_VISIBLE OR %WS_TABSTOP OR %UDS_SETBUDDYINT
    CONTROL ADD TEXTBOX, hDlg, %IDT_POSITIONX, "PositionX", 24, 52, 54, 20
    CONTROL ADD TEXTBOX, hDlg, %IDT_POSITIONY, "PositionY", 24, 78, 54, 20
#PBFORMS END DIALOG

    LOCAL hTextBox, hUpDown     AS DWORD
    CONTROL HANDLE hDlg, %IDC_POSITIONX TO hUpDown
    CONTROL HANDLE hDlg, %IDT_POSITIONX TO hTextBox
    CONTROL SEND hDlg, %IDC_POSITIONX, %UDM_SETBUDDY, hTextBox, 0
    CONTROL SEND hDlg, %IDC_POSITIONX, %UDM_SETRANGE32, -255, 255

    CONTROL HANDLE hDlg, %IDC_POSITIONY TO hUpDown
    CONTROL HANDLE hDlg, %IDT_POSITIONY TO hTextBox
    CONTROL SEND hDlg, %IDC_POSITIONY, %UDM_SETBUDDY, hTextBox, 0
    CONTROL SEND hDlg, %IDC_POSITIONY, %UDM_SETRANGE32, -255, 255

#PBFORMS BEGIN CLEANUP %IDD_TESTTABBING
#PBFORMS END CLEANUP

    FUNCTION = hDlg
END FUNCTION
'------------------------------------------------------------------------------
'------------------------------------------------------------------------------
CALLBACK FUNCTION ShowMainWindowProc()

STATIC hChild AS DWORD

    SELECT CASE AS LONG CBMSG
        CASE %WM_INITDIALOG
            ' Initialization handler
            hChild = ShowChildDialog(CB.HNDL)
            DIALOG SHOW MODELESS hChild, CALL ShowChildDialogProc

        CASE %WM_SIZE
            LOCAL FormX, FormY AS LONG
            DIALOG GET CLIENT CB.HNDL TO FormX, FormY
            CONTROL SET LOC CB.HNDL, %IDT_POSITIONX, 0, 0
            CONTROL SET LOC CB.HNDL, %IDT_POSITIONY, 100, 0
            DIALOG SET LOC hchild, 0, 25

        CASE %WM_NCACTIVATE
            STATIC hWndSaveFocus AS DWORD
            IF ISFALSE CBWPARAM THEN
                ' Save control focus
                hWndSaveFocus = GetFocus()
            ELSEIF hWndSaveFocus THEN
                ' Restore control focus
                SetFocus(hWndSaveFocus)
                hWndSaveFocus = 0
            END IF

        CASE %WM_DESTROY
            PostQuitMessage 0

        CASE %WM_COMMAND
            ' Process control notifications
            SELECT CASE AS LONG CBCTL

            END SELECT
    END SELECT
END FUNCTION
'------------------------------------------------------------------------------

'------------------------------------------------------------------------------
FUNCTION ShowMainWindow(BYVAL hParent AS DWORD) AS LONG
    LOCAL lRslt AS LONG

#PBFORMS BEGIN DIALOG %IDD_MAINWINDOW->->
    LOCAL hDlg  AS DWORD

    DIALOG NEW PIXELS, hParent, "Main Window", %CW_USEDEFAULT, %CW_USEDEFAULT, 300, 350, %WS_POPUP OR _
        %WS_BORDER OR %WS_THICKFRAME OR %WS_CAPTION OR %WS_SYSMENU OR _
        %WS_MINIMIZEBOX OR %WS_MAXIMIZEBOX OR %WS_CLIPSIBLINGS OR _
        %WS_CLIPCHILDREN OR %WS_VISIBLE OR %DS_MODALFRAME OR %DS_3DLOOK OR _
        %DS_NOFAILCREATE OR %DS_SETFONT, %WS_EX_CONTROLPARENT OR %WS_EX_LEFT _
        OR %WS_EX_LTRREADING OR %WS_EX_RIGHTSCROLLBAR, TO hDlg
    CONTROL ADD TEXTBOX, hDlg, %IDT_POSITIONX, "PositionX", 24, 52, 54, 20
    CONTROL ADD TEXTBOX, hDlg, %IDT_POSITIONY, "PositionY", 24, 78, 54, 20
#PBFORMS END DIALOG

The culprit:

    DIALOG SHOW MODELESS hDlg, CALL ShowMainWindowProc TO lRslt

    LOCAL Msg           AS TAGMSG
    WHILE GetMessage(Msg, BYVAL %NULL, 0, 0) > 0
        TranslateMessage Msg
        DispatchMessage Msg
    WEND

#PBFORMS BEGIN CLEANUP %IDD_MAINWINDOW
#PBFORMS END CLEANUP

    FUNCTION = lRslt
END FUNCTION
'------------------------------------------------------------------------------

[Rodney Hicks]

You may also find the solution to the issue if you deliberately try to create a small app that has those features for display purposes.

[Michael Mattias]

Did you subclass any controls?

That's a pretty easy way to screw up the operation of system keys such as <Tab>

Do you ever change the Zorder on the fly? Do you change control styles after creation? Have you changed any control styles at all from the last time "it worked?"

Is this a dialog created with CreateDialog() or DialogBox, or a window you have created with CreateWindowEx? If an DDT dialog do you have a message loop if you did the DIALOG SHOW with the MODELESS option?

Are you using any synchonization object with the WaitForxxx functions?

These are all some places where tab navigation can disabled or interfered with by not coding correctly.

A compilable and runnable (ie, no missing DLLs or data files) example demonstrating problem will be required, unless of course you wish to engage an outside consulant.

MCM

[colin glenn]

Which would be a good starting point, however, dumping the whole project up is currently not an option, so the question is, where to start in constructing or posting code to see what I've managed to do to make tabbing quit.

[Rodney Hicks]

Perhaps showing us compilable code that displays this issue help might then arrive quicker. We can only guess without the code.

[colin glenn]

I'm getting Ding's (default windows sound) when pressing the Tab key while in a child Textbox. Plus, generally, I don't seem to be getting tab navigation in my application. Specifically, I am using a child dialog in the main dialog to group a bunch of controls and tabbing does not do anything, or I get a "Ding!" if I'm in a textbox. Where should I start looking for the problem?