XProfan

English

Stephan
Sonneborn

Hello together,
in the Help standing To WAITINPUT:

out of on Keyboard-Key-Pressings reacted WaitInput as well as WaitKey yet on following Events and equips %Key properly:
1 it watts one Sign in of/ one Listbox choosed or it watts one entry of/ one Selection chosen

Why reacted WAITINPUT not?
Compile Mark Separation

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

03/12/12 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jörg
Sellmeyer

Tja - in the drop is %key not same 1. Why the so is, becomes you only well Roland say can.

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

03/12/12 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

RGH

the betroffene Window must whom Dialogstil having. (in the Normalfall using one Dialogelemente Yes in Dialogfenstern.)

Greeting
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

03/12/12 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Detlef
Jagolski

Hello!

And so goes it without Dialogstil.
Compile Mark Separation

 $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
/../Function-References/XProfan/end/'>END