dialog box won't respond to OK button presses

[dwaynek]

my dialog box won't respond to OK button presses. what's wrong with this code?

#include <GUIConstants.au3>
#include <Date.au3>

Opt("GUIOnEventMode", 1) ; Change to OnEvent mode 
$mainwindow = GUICreate("Enter labels", 200, 100)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
GUICtrlCreateLabel("Please enter any other required label and click OK", 30, 10, 100, 80)
$okbutton = GUICtrlCreateButton("OK", 70, 65, 60)
GUICtrlSetOnEvent($okbutton, "OKButton")
GUISetState(@SW_SHOW)

While 1
  Sleep(1000) ; Idle around
WEnd





Func OKButton()
 ;Note: at this point @GUI_CTRLID would equal $okbutton,
 ;and @GUI_WINHANDLE would equal $mainwindow
  MsgBox(0, "GUI Event", "You pressed OK!")

EndFunc

Func CLOSEClicked()
 ;Note: at this point @GUI_CTRLID would equal $GUI_EVENT_CLOSE, 
 ;and @GUI_WINHANDLE would equal $mainwindow 
  MsgBox(0, "GUI Event", "You clicked CLOSE! Exiting...")
  Exit
EndFunc

[joshiieeii]

This portion is wrong...

While 1
  Sleep(1000) ; Idle around
WEnd
oÝ÷ Ø×vËh$)¶¬jëh×6
 While 1
        $msg = GUIGetMsg()
        Select

    Case $msg = $okbutton
            Exit
        EndSelect
    WEnd

Edited June 29, 2006 by joshiieeii

[dwaynek]

ok i think i figured it out myself. i created a label that covered the button. but that's dumb. buttons should always take precedent and be in FRONT of labels. because if the label was actually in front of the button, it should have visually covered bits of the button to indicate this and thus would visually indicate that the button wouldn't work properly but as it is, it shows the button in FRONT, but focus-wise is BEHIND the label.

[dwaynek]

This portion is wrong...

While 1
  Sleep(1000) ; Idle around
WEnd
oÝ÷ Ø×vËh$)¶¬jëh×6
 While 1
        $msg = GUIGetMsg()
        Select

    Case $msg = $okbutton
            Exit
        EndSelect
    WEnd

the code is valid, joshiieeii. i extracted it from AutoIt's help file. but like i said, i figured out what was wrong. it was the label hiding the button.

[big_daddy]

This portion is wrong...

While 1
  Sleep(1000) ; Idle around
WEnd
oÝ÷ Ø×vËh$)¶¬jëh×6
 While 1
        $msg = GUIGetMsg()
        Select

    Case $msg = $okbutton
            Exit
        EndSelect
    WEnd

Notice that he is using GuiOnEventMode.

[joshiieeii]

Yeah, I must have missed that the first time i read that