Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Accidents happen...
Message
 
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Environment versions
Visual FoxPro:
VFP 9
OS:
Windows XP SP2
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01079991
Message ID:
01082001
Views:
14
This message has been marked as a message which has helped to the initial question of the thread.
I did the same thing.
So I put this in the ProjectHook.QueryRemoveFile code:
LPARAMETERS toFile, tcClassName, tlDeleteFile

* Defaults to [No] to make it hard to remove class!
IF NOT EMPTY( m.tcClassName ) ;
  AND MESSAGEBOX( "Are you sure you want to remove class " + m.tcClassName, ;
	MB_YESNO + MB_DEFBUTTON2 + MB_ICONEXCLAMATION, ;  
				   "Attention!" ) <> IDYES	
    * Prevents removing that class.
    NODEFAULT
ELSE
    * FoxPro will prompt you again.
ENDIF	  
- Andy Rice
San Diego, CA
Previous
Reply
Map
View

Click here to load this message in the networking platform