Fermeture d'une Form [Résolu]

catmldrd 11 Messages postés jeudi 21 octobre 2004Date d'inscription 27 février 2006 Dernière intervention - 16 déc. 2004 à 02:05 - Dernière réponse : cs_valval 14 Messages postés mercredi 20 octobre 2004Date d'inscription 1 janvier 2005 Dernière intervention
- 16 déc. 2004 à 15:00
Bonjour,

Je cherche une façon pour fermer la form
dans le module OnActivate quand
il ne satisfait pas à certaine condition.

cette form est appeler par un showmodal.

Merci
René (Gaspé,Qué)
Afficher la suite 

Votre réponse

4 réponses

MoveX 230 Messages postés vendredi 9 mai 2003Date d'inscription 16 juillet 2005 Dernière intervention - 16 déc. 2004 à 07:32
0
Merci
form.hide, ca ne te convient pas?
Commenter la réponse de MoveX
cs_zmc 151 Messages postés vendredi 26 avril 2002Date d'inscription 26 avril 2008 Dernière intervention - 16 déc. 2004 à 07:42
0
Merci
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).

A+
Commenter la réponse de cs_zmc
cs_valval 14 Messages postés mercredi 20 octobre 2004Date d'inscription 1 janvier 2005 Dernière intervention - 16 déc. 2004 à 15:00
-1
Merci
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.
Commenter la réponse de cs_valval
jmp77 1232 Messages postés lundi 4 février 2002Date d'inscription 4 octobre 2006 Dernière intervention - 16 déc. 2004 à 08:52
-2
Merci
hello,

Bentu fais Form.close et dans le OnClose de la fenetre tu fais Action := CaFree;

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur réponse acceptée.
Commenter la réponse de jmp77

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.