LOCAL nResponse nResponse=MESSAGEBOX('Do you want to quit this application?',4+32,'Confirm action') IF nResponse=6 CLEAR EVENTS THISFORM.Release ENDIF RETURNHTH
>LOCAL nResponse > >nResponse=MESSAGEBOX('Do you want to quit this application?',4+32,'Confirm action') >IF nResponse=6 > CLEAR EVENTS >ENDIF >THISFORM.Release >RETURN>In my MAIN.prg I have;
>if blah() > DO myform > READ EVENTS >ELSE > * DISPLAY ERROR MESSAGE >ENDIF>Why doesn't this properly work? Executable doesn't work either. Execution of 'blah()' works fine, however the form doesn't load.