Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Accidents happen...
Message
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Versions des environnements
Visual FoxPro:
VFP 9
OS:
Windows XP SP2
Database:
Visual FoxPro
Divers
Thread ID:
01079991
Message ID:
01082001
Vues:
13
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
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform