XProfan

Italia

Stephan
Sonneborn

Hallo zusammen,
in der Aiuto steht zu WAITINPUT:

Außer auf Tastendrücken reagiert WaitInput wie auch WaitKey noch auf folgende Ereignisse und bestückt %Key entsprechend:
1 Es wurde ein Eintrag in einer Listbox angewählt oder es wurde ein Eintrag einer Auswahlbox gewählt

Wieso reagiert WAITINPUT hier nicht?
Kompilieren Markieren Separieren

CLS
VAR CB&=CREATE("CHOICEBOX", %HWND, 0,10,10,100,90)
VAR Ende% = 0
ADDSTRING(CB&,"Auswahl 1")
ADDSTRING(CB&,"Auswahl 2")
ADDSTRING(CB&,"Auswahl 3")
ADDSTRING(CB&,"Beenden")

WHILENOT Ende%

    WAITINPUT

    IF %KEY = 1

        IF GETTEXT$(CB&) = "Beenden"

            Ende% = 1

        ENDIF

    ENDIF

ENDWHILE

END

Schöne Grüße aus Wittgenstein
von Stephan

Programmierumgebung:| XProfan X4 | WIN10 | AMD FX6100 3,3 GHz

12.03.2012 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Jörg
Sellmeyer

Tja - in dem Fall ist %key nicht gleich 1. Warum das so ist, wird Dir nur wohl Roland sagen können.

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

12.03.2012 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

RGH

Das betroffene Fenster muss den Dialogstil haben. (Im Normalfall benutzt man Dialogelemente ja in Dialogfenstern.)

Saluto
Roland

XProfan X2
Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

12.03.2012 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Detlef
Jagolski

Hallo!

Und so geht es ohne Dialogstil.
Kompilieren Markieren Separieren

 $H WINDOWS.PH
 $H MESSAGES.PH

SubClassProc

    If SubClassMessage(%hwnd, ~WM_COMMAND)

        Select &sLParam

            CaseOf CB&

            If HiWord(&sWParam) = ~CBN_SELCHANGE

                SetMenuItem 5000

            EndIf

            Set("WinProc",0)

        EndSelect

    EndIf

EndProc

CLS
VAR CB&=CREATE("CHOICEBOX", %HWND, 0,10,10,100,90)
VAR Ende% = 0
ADDSTRING(CB&,"Auswahl 1")
ADDSTRING(CB&,"Auswahl 2")
ADDSTRING(CB&,"Auswahl 3")
ADDSTRING(CB&,"Beenden")
SubClass %hwnd,1

WHILENOT Ende%

    WAITINPUT

    IF MenuItem(5000)

        IF GETTEXT$(CB&) = "Beenden"

            Ende% = 1

        ENDIF

    ENDIF

ENDWHILE

SubClass %hwnd,0
/../funktionsreferenzen/xprofan/end/'>END