cs_zmc
Messages postés147Date d'inscriptionvendredi 26 avril 2002StatutMembreDernière intervention26 avril 20081 16 déc. 2004 à 07:42
Salut,
Je vois pas trop ce que tu veux faire, pourquoi ne pas executer ta condition avant d'ouvrir ton form du style
if True then
Form.ShowModal
else
...
Sachant que else ne sera pas executé tant que ton form sera ouvert (à vérifier quand meme).
Sinon ecrire simplement dans OnActivate (plutot OnCreate en fait)
Form.Close ou pour fermer l'application entière Halt(0).
cs_valval
Messages postés13Date d'inscriptionmercredi 20 octobre 2004StatutMembreDernière intervention 1 janvier 20051 16 déc. 2004 à 15:00
Salut!
Je ne te conseille de ne pas d'introduire du code de fermetture de la Form dans l'évènement OnActivate.
Dans une Unité, crée une fonction booléenne "FermerForm(<liste des paramètres éventuels...>)" qui sera chargée de tester la(les) condition(s) de non lancement de la Form(Il faudra la déclarer dans la partie Interface).
Si la Form est lancée suite à un clic de bouton par exemple:
Procedure Tform1.Button1Click(Sender:Tobject);
Begin
... //instructions
If FermerForm(...)=False Then //condition favorable à l'ouverture
Form2.showModal
Else //condition défavorable (facultatif)
...
... //autres instructions
End;
J'attends moi aussi des critiques; nul ne détient le monopole du savoir.