Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Top level form part 2
Message
 
To
13/01/1997 23:29:28
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Miscellaneous
Thread ID:
00017266
Message ID:
00018035
Views:
43
>Now, that I have my top level running ok, there is one more thing that I need to know if it is normal or if I am doing something wrong.
>
>When I have access to my top level form, it is not the frontmost form. I have to click on it to make it foremost.
>
>Is this the default behavior?

Hi guys:

Been looking at your site for while, and it look good.

Try this

SET path to data;forms;libs;reports;bmps;prog;menus
SET safe off
SET multilocks on
set excl off
SET nulldisplay to ''
set dele on
clos data
* _screen.windowstate=1 && This will not work. It make the desktop disapear
* && but does not give the focus to the login form
* && which it topmost form.

SET classlib to cmobjects addi

* these vars are released after login is succesful / no globals at all.
gclocaldata = .f.
glContinue = .f.
gldevelop = .t.

if glDevelop
set assert on
endif

* Create an object of class MetaMgr.
*oMeta = createobject('MetaMgr')
* Create an object of main application class
oApp = createobject('cm_application')
Release gclocaldata

OPEN data campuscare

do form login
read events

if ! glContinue
canc
endif

do form main
read events


* The end

*Code form INIT in login form

thisform.passcount = 0
thisform.cm_cbo1.setfocus() && set focus to first object in login form
_screen.windowstate=1 && this is the trick
* && Login form has the focus prior to minimizing the desktop

Hope it helps

*Cano*
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform