How can I make my form Modal/Modeless on the fly.

Level Extreme platform

Subscription

Corporate profile

Products & Services

Support

Legal

Français

Articles

Search:

How can I make my form Modal/Modeless on the fly.

Nick Neklioudov, June 23, 2000

You can make your form Modal/Modeless on the fly. This may be useful for preventing users to switch to other forms before they finished entering the data.

Summary

You can make your form Modal/Modeless on the fly. This may be useful for preventing users to switch to other forms before they finished entering the data.

Description

Here is the sample form. (Thanks to Christof Lange for brushing up the code sequence.) Note the code in Click() events - that's all you need to make it work

PUBLIC oForm
oForm = CREATEOBJECT("SwitchForm")
oForm.SHOW()

DEFINE CLASS SwitchForm AS FORM

	ADD OBJECT cmdModal AS COMMANDBUTTON WITH ;
		CAPTION = "Modal", ;
		HEIGHT = 27, ;
		LEFT = 30, ;
		TOP = 50
		
	ADD OBJECT cmdModeless AS COMMANDBUTTON WITH ;
		CAPTION = "Modeless", ;
		HEIGHT = 27, ;
		LEFT = 30, ;
		TOP = 100

	PROCEDURE cmdModal.CLICK
	THISFORM.HIDE()
	THISFORM.SHOW(1)
	THISFORM.SHOW(2)

	PROCEDURE cmdModeless.CLICK
	THISFORM.HIDE()

ENDDEFINE

Nick Neklioudov, Cgi Group Inc.
Nick Neklioudov, M.Sc., CNA, works as Senior Analyst with CGI Group Inc. in Halifax, Nova Scotia, Canada. Programming in all versions of FoxPro/VFP since 1987, in .Net since 2003, not counting some other developer tools and environments. Nick received Microsoft Most Valuable Professional award three times. Nick Neklioudov has over 20 years experience with computers and information technologies, especially in database-oriented programming, object-oriented programming and information systems development.

More articles from this author

Nick Neklioudov, January 1, 2006

Nick Neklioudov resumes the highlights in the VFP community in the last month

Nick Neklioudov, February 1, 2006

Nick Neklioudov resumes the highlights in the VFP community in the last month

Nick Neklioudov, March 1, 2006

Nick Neklioudov resumes the highlights in the VFP community in the last month

Nick Neklioudov, April 1, 2006

Nick Neklioudov resumes the highlights in the VFP community in the last month

Nick Neklioudov, May 1, 2006

Nick Neklioudov resumes the highlights in the VFP community in the last month

Nick Neklioudov, June 1, 2006

Nick Neklioudov resumes the highlights in the VFP community in the last month

Nick Neklioudov, July 1, 2006

Nick Neklioudov resumes the highlights in the VFP community in the last month

Nick Neklioudov, August 1, 2006

Nick Neklioudov resumes the highlights in the VFP community in the last month

Nick Neklioudov, September 1, 2006

Nick Neklioudov resumes the highlights in the VFP community in the last month

Nick Neklioudov, October 1, 2006

Nick Neklioudov resumes the highlights in the VFP community in the last month

Nick Neklioudov, November 1, 2006

Nick Neklioudov resumes the highlights in the VFP community in the last month

Nick Neklioudov, December 1, 2006

Nick Neklioudov resumes the highlights in the VFP community in the last month

Nick Neklioudov, March 1, 2007

Nick Neklioudov resumes the highlights in the VFP community in the last month

How do I translate the HEX encrypted text which I see in some UT messages?

Nick Neklioudov, April 7, 2000

This will translate the HEX encrypted text. It is a little wrapper around George Tasker class for automatic translation back and forth and placing the translated text to the Clipboard. You can explicitly pass your text as a parameter, or the program automatically picks the clipboard content.

How to add custom properties to SCATTER NAME-like object for use with GATHER NAME command

Nick Neklioudov, May 29, 2002

Instead of trying to add properties with some third-party tools like ADDPROP5.FLL to the native object created with SCATTER NAME command you may try to approach this problem from the other side. You can replace the native SCATTER command with your own function MYSCATTER which may work on any are...

How to ensure that changing the checkbox.Value type does not break your code

Nick Neklioudov, April 5, 2000

Checkboxes supports both Numeric and Logical data types. When you check its value, do not just write IF thisform.mycheckbox.Value = 1 or IF thisform.mycheckbox.Value = .t. Check it as IF !EMPTY(thisform.mycheckbox.Value) This way you don't care what the type of value really i...

How to find if the client's birthday is between the given dates

Nick Neklioudov, June 26, 2000

Say, you have the client birth date and you want your program to tell you if the birthday is within the certain date range (even when the given range starts in one year and finishes in another). SELECT * FROM CLIENTS ; WHERE BETWEEN(GOMONTH(birth_date,(YEAR(start_date)- YEAR(birth_date))*12), st...

Monthly profile: Nick Neklioudov

Nick Neklioudov, November 1, 2001

I live in Halifax, Nova Scotia with my wife Tanya (who I happily married 22 years ago) and our 18-year old daughter Nadya. The 3-year old cat Stanley is also a family member :) As you might have guessed, I do VFP programming. Tanya works at Dalhousie University. She is Ph. D. in Biology and has bee...

Review: The Software Developer's Guide

Nick Neklioudov, November 1, 2002

Author: Whil Hentzen Publisher: Hentzenwerke Corporation ISBN: 193091900X Paperback: 548 pages Dimensions (in inches): 1.14 x 9.10 x 7.02 3rd edition (July 2002) Amazon link: http://www.amazon.com/exec/obidos/tg/detail/-/193091900X/qid=1033007807/sr=8-3/ ref=sr_8_3/1...

What are the alternatives if I am getting Invalid Expression error for Dynamic... grid property

Nick Neklioudov, July 17, 2000

If you get an error "Expression is invalid. Use a valid expression for DYNAMIC... property" you may try different type of addressing your PEMs: For example, in Grid.Init() this syntax does not work this.SETALL('DynamicBackColor', 'IIF(ASCAN(This.Parent.aRecNosSelected,RECNO()) > 0, RGB(255,0,...

Where can I find the International Calling Codes?

Nick Neklioudov, August 19, 1999

http://www.the-acr.com/codes/cntrycd.htm

Why my DynamicColor Property doesn't work and there is no error message?

Nick Neklioudov, January 17, 1998

This works: this.column1.DynamicForeColor = "IIF(some_type = 2, RGB(255,0,0), RGB(0,0,0))" And this does not work: this.column1.DynamicForeColor = "IIF(some_type = 2, RGB(255,0,0), RGB(0,0,0)) " Reason: one extra space before closing quotes.

Yet another approach to the forms and grids

Nick Neklioudov, January 1, 2001

I believe all of us are familiar with that set of four navigational buttons "First", "Prior", "Next", "Last" we use for data entry or maintenance forms. You need to put some code in their Click() events, enable or disable navigation buttons, according to the position of record pointer in a table. ...