XProfan

Français

rafl

Salut,

j'ai un Dialog, dans dem je cinq Editboxen zur Eingabe de données habe.

je voudrais volontiers den Concentrer sur qui Editboxen avec qui bouton "Pagedown" changement. D.h. beim Drücken qui bouton soll qui Concentrer sur cela prochain Eingabefeld springen. comment peux je cela faire?

Vielen Dank déjà la fois
Rafl

23.02.2019 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

H.Brill

cela pourrait seulement avec SubClassing aller.
cela <ENTER> im Modifier le champ de ist dagen déjà incorporé.

Kompilieren Marque Séparation

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

Proc GetNextChild

    Paramètres h&
    Var ID% = ItemId(h&)
    Var hNext& = GetHandle(~GetParent(h&),ID% + 1)
    Cas hNext& = 0:hNext& = GetHandle(~GetParent(h&),1000)
    Retour hNext&

ENDPROC

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

Tandis que 1

    WaitInput

    Si %clé = 2

        Pause

    ElseIf OnVK_NEXT()

        SendMessage(GetNextChild(%getfocus), $00B1, 6, 0)' 6 marque markieren
        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 citation

Absatzweise Citation Zeilenweise Citation

rafl

Vielen Dank pour qui schnelle Antwort.

c'est zwar pas entier cela, quoi je gesucht habe, avec qui [ENTER] Solution peux je mais aussi pas mal vivre.

23.02.2019 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

H.Brill

ici quoi (dans diesem Forum trouvé), quoi deiner Vorstellung
proche venez. allez avec ENTER + BILD RUNTER :

Kompilieren Marque Séparation

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

Proc GetNextChild

    Paramètres h&
    Var ID% = ItemId(h&)
    Var hNext& = GetHandle(~GetParent(h&),ID% + 1)
    Cas hNext& = 0:hNext& = GetHandle(~GetParent(h&),1000)
    Retour hNext&

ENDPROC

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

Tandis que 1

    WaitInput

    Si %clé = 2

        Pause

    ElseIf OnVK_NEXT()

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

    ElseIf OnEnter()

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

    EndIf

Endwhile