Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Hiding Main Window
Message
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Hiding Main Window
Miscellaneous
Thread ID:
00652998
Message ID:
00652998
Views:
55
My VFP7/SP1 application consists of a main.prg, a few .prg-based classes, and a single form. I only want to see the form, but when I launch the .exe, the main VFP window shows, then the form starts, and when I click my [Quit] button in the form (click method contains ThisForm.QueryUnload() and ThisForm.Release()), the form goes away but the main VFP window is still there - of course "Cannot Quit Visual FoxPro"....

The form's ShowWindow property is 2.

I have to get rid of that main VFP window, what did I miss?



I have a config.fpw with SCREEN=OFF as the only line in it.

In the main.prg, I have
	_screen.Visible = .f.
	Clear Program
	Release All
	Close Databases All
	Set Resource Off
	Set Century On
	Set Mark to "."
	Set Date to ANSI
	Set Deleted Off
	Set MultiLocks On
	Set Escape On
	Set Optimize On
	Set Refresh to 0,0
	Set Talk Off
	Set View Off
	Set ANSI Off
	Set Safety Off
	Set TRBetween On
	Set Currency Left
	Set Currency to "$"
	Set Hours to 12
	Set Decimals to 2
	Set FDow to 1
	Set FWeek to 1
	Set Mark to "."
	Set Separator to ","
	Set Point to "."
	Set Notify Off
	Set Compatible Off
	Set Bell On
	Set Escape On
	Set LogErrors On
	Set Carry Off
	Set StrictDate to 1
	Set Exact Off
	Set Near On
	Set ANSI Off
	Set Lock On
	Set Exclusive Off
	Set MultiLocks On
	Set Headings On
	Set Deleted Off
	Set Optimize On
	Set Unique Off
	Set BlockSize to 64
	Set Reprocess to 0
	Set Collate to ""
I make some API references, have some case logic and then I do
	_vfp.AutoYield = .f.   && For an ActiveX control to behave
	Do Form mainappform
	Read Events
	Clear Read
	_vfp.AutoYield = .t.   && For an ActiveX control to behave
	Close Tables All
	Close Databases All
	Release oApp
	oApp = .Null.
	Release oErrorHandler
	oErrorHandler = .Null.
	Quit
	Cancel
Next
Reply
Map
View

Click here to load this message in the networking platform