XProfan

Español

Stephan
Sonneborn

¡Hola zusammen,
en el Ayuda es a WAITINPUT:

Außer en Tastendrücken reagiert WaitInput como WaitKey todavía en folgende Ereignisse y bestückt %Key entsprechend:
1 Lo wurde una Eintrag en uno Listbox angewählt oder lo wurde una Eintrag uno Auswahlbox gewählt

¿Por qué reagiert WAITINPUT hier no?
Kompilieren Marca Separación

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

FIN

Schöne Grüße aus Wittgenstein
von Stephan

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

12.03.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Tja - en el Fall es %key no es igual 1. ¿Por qué el así es, se Usted sólo wohl Roland sagen puede.

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

12.03.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

RGH

Das betroffene Ventana muss el Dialogstil haben. (Im Normalfall benutzt uno Dialogelemente sí en Dialogfenstern.)

Saludo
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 Cita Zeilenweise Cita

Detlef
Jagolski

¡Hola!

Und así es sin Dialogstil.
Kompilieren Marca Separación

 $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/'>FIN