>Does it return a value ie successful or not? My login is acutally wrapped in a session class which stores user rights etc. and the actual main.prg code looks something like:
Here's what I have. My login form called "UACCES" is punching .T. or .F. to oApp.lContinue. I guess it would be better if I return a value instead. As the code is right now, the situation is that the form login appears and disappaer immediately. Like I said, this is only like this since I put top level form. The reason that the system quits immediately is probably because oApp.lContinue remains .F. because the login form didn't wait for a user input and finished immediately.
That's why I tried to put a READ EVENT in the Activate() of the form but that didn't help.
* Call the identification form
DO FORM UACCES
IF NOT oApp.lContinue
RETURN
ENDIF
* Enable the close button
_screen.Closable=.T.
* Show the screen
_screen.Visible=.T.
* Start the event loop
READ EVENTS