XProfan

Español

rafl

¡Hola,

Yo una Diálogo, en el Yo fünf Editboxen a Eingabe de Daten habe.

Yo möchte gerne el Focus en el Editboxen con el Taste "Pagedown" ändern. D.h. beim Drücken el Taste se el Foco el nächste Eingabefeld springen. ¿Cómo se puede Yo el hacer?

Vielen Dank ya veces
Rafl

23.02.2019 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

H.Brill

Das dürfte sólo SubClassing ir.
Das <ENTER> en el Editar campo es dagen ya instalado.

Kompilieren Marca Separación

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

Proc GetNextChild

    Parámetros h&
    Var ID% = ItemId(h&)
    Var hNext& = GetHandle(~GetParent(h&),ID% + 1)
    Case hNext& = 0:hNext& = GetHandle(~GetParent(h&),1000)
    Volver hNext&

ENDPROC

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

Mientras que 1

    WaitInput

    If %key = 2

        Romper

    ElseIf OnVK_NEXT()

        SendMessage(GetNextChild(%getfocus), $00B1, 6, 0)' 6 Signo marca
        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.

23.02.2019 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

rafl

Vielen Dank para la respuesta rápida.

Es zwar no bastante el, Yo gesucht habe, con el [ENTER] Solución kann Yo aber auch bastante bien leben.

23.02.2019 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

H.Brill

Hier qué (en diesem Foro gefunden), qué deiner Vorstellung
nahe kommt. Geht con ENTER + BILD RUNTER :

Kompilieren Marca Separación

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

Proc GetNextChild

    Parámetros h&
    Var ID% = ItemId(h&)
    Var hNext& = GetHandle(~GetParent(h&),ID% + 1)
    Case hNext& = 0:hNext& = GetHandle(~GetParent(h&),1000)
    Volver hNext&

ENDPROC

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

Mientras que 1

    WaitInput

    If %key = 2

        Romper

    ElseIf OnVK_NEXT()

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

    ElseIf OnEnter()

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

    EndIf

EndWhile