XProfan

English

Jörg
Sellmeyer

Edit on one Dialogcontrol accepted "ENTER".
unfortunately becomes then too ESC not any more on the %hwnd durchgereicht
Also a request to recognition of Text Change
Compile Mark Separation

 $H windows.ph
Def CN(2) If(%message = $0111,((&lparam = &(1)) And (HiWord(&wparam) = &(2))),0)
Def EN_CHANGE(1) CN(&(1),$0300)
Def EnterOn(1) (%key = 13) And (&lparam = &(1))
Cls
Var test& = Control("DIALOG","",$54000000,310,10,200,24,%hwnd,0,%hinstance)
Var Ed& = Create("Edit",test&,"Hier ist der Text",0,0,200,24)
SetFocus(Ed&)
Print "Taste oder Enter drücken"

While 1

    WaitInput
    Locate 2,1

    If %key = 2

        Break

    ElseIf EnterOn(Ed&)

        Print "Enter gedrückt " + GetText$(&lparam)

    ElseIf EN_CHANGE(Ed&)

        Print GetText$(&lparam)

    EndIf

Wend

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

10/30/11 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jörg
Sellmeyer

so geht's rather. For this must some Keys as Hotkey occupied go.
Compile Mark Separation

 $H windows.ph
Def CN(2) If(%message = $0111,((&lparam = &(1)) And (HiWord(&wparam) = &(2))),0)
Def EN_CHANGE(1) CN(&(1),$0300)
Def OnEnter(0) MenuItem(13)
Def OnESC(0) MenuItem(27)
Def OnTAB(0) MenuItem(9)

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
AddHotKey 9,9,0
AddHotKey 13,13,0
AddHotKey 27,27,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)
Print "Taste oder Enter drücken"

While 1

    WaitInput

    If %key = 2

        Break

    ElseIf OnTAB()

        SetFocus(GetNextChild(%getfocus))
        Print "auf zum Nächsten " + GetText$(GetNextChild(%getfocus))

    ElseIf OnEnter()

        Print "Enter gedrückt " + GetText$(%getfocus)

    ElseIf OnESC()

        Print "Raus aus dem Edit                     "
        SetFocus(%hwnd)

    ElseIf EN_CHANGE(Ed&)

        Print GetText$(&lparam)

    EndIf

/../../Function-References/XProfan/wend/'>Wend