XProfan

English

rafl

Hi,

I have one dialog, in the I five Editboxen to input of data have.

i want gladly whom Focus on The Editboxen with the Button "Pagedown" Change. D.h. at pressing the Button to the Focus the next Input jumping. How can I the make?

Vielen Thanks already time
Rafl

02/23/19 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

H.Brill

the might only with SubClassing weg.
the <ENTER> in the Editfeld is dagen already installed.

Compile Mark Separation

 $H windows.ph
Def OnEnter(0) MenuItem(13)
Def OnVK_NEXT(0) MenuItem(34)

Proc GetNextChild

    Parameters h&
    Var ID% = ItemId(h&)
    Var hNext& = GetHandle(~GetParent(h&),ID% + 1)
    Case hNext& = 0:hNext& = GetHandle(~GetParent(h&),1000)
    Return hNext&

ENDPROC

Cls
WAY from 34,34,0
WAY from 13,13,0
Var Ed& = Create("Edit",%hwnd,"Text 1",400,10,200,24)
Var Ed1& = Create("Edit",%hwnd,"Text 2",400,40,200,24)
Var Ed2& = Create("Edit",%hwnd,"Text 3",400,70,200,24)
Var Ed3& = Create("Edit",%hwnd,"Text 4",400,100,200,24)
Var Ed4& = Create("Edit",%hwnd,"Text 5",400,130,200,24)
SetFocus(Ed&)

While 1

    WaitInput

    If %key = 2

        Break

    ElseIf OnVK_NEXT()

        SendMessage(GetNextChild(%getfocus), $00B1, 6, 0)' 6 characters Mark
        SetFocus(GetNextChild(%getfocus))

    ElseIf OnEnter()

        SendMessage(GetNextChild(%getfocus), $00B1, 6, 0)
        SetFocus(GetNextChild(%getfocus))

    EndIf

EndWhile

Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.

Was die Borg können, können wir schon lange.

02/23/19 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

rafl

Vielen Thanks for speedy response.

this is of course not integrally the, I sought have, with the [ENTER] Solution can I but too integrally well life.

02/23/19 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

H.Brill

here what (in this Forum found), what your Review
near comes. goes with ENTER + BILD RUNTER :

Compile Mark Separation

 $H windows.ph
Def OnEnter(0) MenuItem(13)
Def OnVK_NEXT(0) MenuItem(34)

Proc GetNextChild

    Parameters h&
    Var ID% = ItemId(h&)
    Var hNext& = GetHandle(~GetParent(h&),ID% + 1)
    Case hNext& = 0:hNext& = GetHandle(~GetParent(h&),1000)
    Return hNext&

ENDPROC

Cls
WAY from 34,34,0
WAY from 13,13,0
Var Ed& = Create("Edit",%hwnd,"Text 1",400,10,200,24)
Var Ed1& = Create("Edit",%hwnd,"Text 2",400,40,200,24)
Var Ed2& = Create("Edit",%hwnd,"Text 3",400,70,200,24)
Var Ed3& = Create("Edit",%hwnd,"Text 4",400,100,200,24)
Var Ed4& = Create("Edit",%hwnd,"Text 5",400,130,200,24)
SetFocus(Ed&)

While 1

    WaitInput

    If %key = 2

        Break

    ElseIf OnVK_NEXT()

        SendMessage(GetNextChild(%getfocus), $00B1, 6, 0)' 6 characters Mark
        SetFocus(GetNextChild(%getfocus))

    ElseIf OnEnter()

        SendMessage(GetNextChild(%getfocus), $00B1, 6, 0)
        SetFocus(GetNextChild(%getfocus))

    EndIf

EndWhile