Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Question about handling Forms
Message
General information
Forum:
Visual FoxPro
Category:
Object Oriented Programming
Miscellaneous
Thread ID:
00191274
Message ID:
00407304
Views:
21
Wow, that question was many, MANY moons ago. Thanks for your response. I am using the following code in each new form to check for the the existance of the form before opening a new one.
	* ------------------------------
	*  Call Screen Objects for processing
	* ------------------------------	
	oFrm = g_GetForm("formname")
	if isnull(oFrm)
		do form ("formname")
	else
		oFrm.WindowState = 0   && Normal window state
		oFrm.show()
	endif
Also if the exit is selected I call the following procedure
	* ------------------------------
	*  This procedure finds and closes all open forms
	* ------------------------------
	procedure g_CleanupForms
	local ln_x
		clear events
		for m.ln_x = 1 to _screen.FormCount
			_screen.Forms[1].release
		endfor
	return
Now that you've brought it up, I do have a something that I have been puzzled with. I have a "EXIT" button on my screen, I have coded the FILE, EXIT menu selection, but how do I "hook" into the X button to close the window. If the user selects this button, they simply get a message that says can not quit FoxPro.

>Hi Norm,
>
>Welcome to OO...
>
>What you're asking for is taken care of by most frameworks - you should look into that as a possibility for developing apps.
>
>Why didn't you go to vfp 6 instead? Just curious. I started with vfp6.
>

To answer the question on the version of VFP, I started using VFP 5.0 becuase that was what I had in my hands when I started my new project. I'm going to keep with it until I complete my current developement cycle, then I will convert to VFP 6.0 (or 7 if it is available at that time!).
____________________________________________

Norm Peterson

It's a dog eat dog world out there,
and I'm wear'n milk bone underware!
Previous
Reply
Map
View

Click here to load this message in the networking platform