comment fermer un form1 dans un script?

Bonjour,

je souhaiterais avoir vos lumières sur la fermeture automatique d'un form1 lorsqu'on active un form2
J'ai rajouté un process (form1.close) mais il semble que Pascal ne tient compte que du 1er process (form2.showmodal)

Merci pour vos futures réponses si vous avez des idées...

Je vous transmets ci-dessous le script:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

procedure TForm1.BitBtn1Click(Sender: TObject); begin //module où se trouve la table1 et la datasource with Datamodule3 do begin if ( (table1.Locate('Libelle_Ville',Edit2.text,[locaseInsensitive]))and (table1.Locate('ID_Ville',Edit3.text,[locaseInsensitive])) )then form2.showmodal; form1.close else ShowMessage('essaye encore!!'); end;

---

ajoute dans l'événement form2.OnShow

Code:

---

form1.close

---

Ou

Code:

---

1 2	form2.show; form1.close

---

Ou

Code:

---

1 2	form1.close; form2.showmodal;

---

Citation:

---

Envoyé par jakol

Bonjour,

je souhaiterais avoir vos lumières sur la fermeture automatique d'un form1 lorsqu'on active un form2
J'ai rajouté un process (form1.close) mais il semble que Pascal ne tient compte que du 1er process (form2.showmodal)

Merci pour vos futures réponses si vous avez des idées...

---

Probablement à cause d'une coquille :oops: : un bloc doit être encadré par begin ... end :ccool: !!

Code:

---

1 2 3 4 5 6 7 8 9 10

if ( (table1.Locate('Libelle_Ville',Edit2.text,[locaseInsensitive]))and (table1.Locate('ID_Ville',Edit3.text,[locaseInsensitive])) ) then begin form2.showmodal; form1.close; end else ShowMessage('essaye encore!!'); end;

---

salut merci pour vos réponse
vos propositions ne fonctionnent pas dans le Onshow et OnActivate du form2

Même si c'est bien pensé...la "coquille" ne marche pas non plus....
:roll:

J'ai trouvé le lien ci-dessous:

http://www.developpez.net/forums/d47...ivation-form1/

j'ai caché form1 lorsque form2 est activé et j'ai crée un bouton "fermer" (qui ferme form1) dans form2

Lorsque je lance l'executable...ça marche mais après je ne peux plus développer sur le projet...Il semble que l'executable est en cours d'execution lorsque je lance le project...

J'ai fait un copier coller de l'executable, ça marche nikel ...Mais au niveau du codage...c'est pas très propre...

Merci pour l'aide dans ma recherche

- As-tu testé tes conditions dans le if .. then : qu'est-ce que tu obtiens avec un simple showmodal :koi: :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

procedure TForm1.BitBtn1Click(Sender: TObject); begin //module où se trouve la table1 et la datasource with Datamodule3 do begin if ( (table1.Locate('Libelle_Ville',Edit2.text,[locaseInsensitive]))and (table1.Locate('ID_Ville',Edit3.text,[locaseInsensitive])) ) then showmodal('Cdt validées') else ShowMessage('essaye encore!!'); end; end;

---

- Est-ce que ta form1 ne serait pas ta form principale par hasard :oops: ? parce que tu ne peux pas fermer ta form principale sans terminer ton application ...

Citation:

---

Envoyé par archonte

- As-tu testé tes conditions dans le if .. then : qu'est-ce que tu obtiens avec un simple showmodal :koi: :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

procedure TForm1.BitBtn1Click(Sender: TObject); begin //module où se trouve la table1 et la datasource with Datamodule3 do begin if ( (table1.Locate('Libelle_Ville',Edit2.text,[locaseInsensitive]))and (table1.Locate('ID_Ville',Edit3.text,[locaseInsensitive])) ) then showmodal('Cdt validées') else ShowMessage('essaye encore!!'); end; end;

---

Oui le form1 est la principale...:aie:


- Est-ce que ta form1 ne serait pas ta form principale par hasard :oops: ? parce que tu ne peux pas fermer ta form principale sans terminer ton application ...

---

Salut

Pour afficher la form2 et masquer la form1, il suffit de faire :

Code:

---

1 2	Form1.Hide; Form2.Show;

---

ou

Code:

---

1 2	Form1.Visible:=false; Form2.visible:=true;

---

Bonne chance !

Je suis pour ce qu'a dit Mick605. Je rajoute dans le cas ou ta Form1 est la MainForm, penses à la ré-afficher lors de la fermeture de Form2 dans son évènement OnHide:

Code:

---

1 2 3

begin Form1.Visible:= true end

---

Ou encore gères l'arrêt de ton application en passant par Form1 depuis Form2 ou la fiche dont tu te retrouves

Citation:

---

Envoyé par jakol

J'ai rajouté un process (form1.close) mais il semble que Pascal ne tient compte que du 1er process (form2.showmodal)

---

ShowModal est bloquant tant que Form2 est affiché, cela reste sur ShowModal (c'est une boucle à l'intérieur), une fois Form2 fermé, cela ferme Form1

Normalement, la proposition de Montor est valable, il faut bien mettre le Close puis le ShowModal dans un Begin\End commle le disait archonte.
Enfin, pense à indenter ton code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

procedure TForm1.BitBtn1Click(Sender: TObject); begin //module où se trouve la table1 et la datasource with Datamodule3 do begin if ( (table1.Locate('Libelle_Ville',Edit2.text,[locaseInsensitive]))and (table1 .Locate('ID_Ville',Edit3.text,[locaseInsensitive])) )then begin form1.Close(); // ou form1.Hide(); // ou form1.Release(); si tu ne l'utilisera plus jamais ensuite, donc aucun évènement dessus après ce OnClick form2.ShowModal(); end else ShowMessage('essaye encore!!'); end; end;

---

Il faut biensur vérifier si tu n'as pas une Action particulièrement dans le Form1.OnClose, pour une fenêtre Style fsNormal, c'est caHide (cela ne libère pas la fenêtre mais la cache, en général, c'est le plus pratique, cela permet de gérer soit même la libération par un FreeAndNil) ou une contrainte dans OnCloseQuery !

Enfin, si Form1 est la 1ère fenêtre créé, il faut faire attention, si elle est considéré comme la MainForm, sa fermeture fermera ton programme (surement juste après la fermeture de Form2 grace au ShowModal)

On suppose aussi que tu es bien en SDI, que ne mélanges par Modal et MDIChild

Citation:

---

Envoyé par ShaiLeTroll

ShowModal est bloquant tant que Form2 est affiché, cela reste sur ShowModal (c'est une boucle à l'intérieur), une fois Form2 fermé, cela ferme Form1

Normalement, la proposition de Montor est valable, il faut bien mettre le Close puis le ShowModal dans un Begin\End commle le disait archonte.
Enfin, pense à indenter ton code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

procedure TForm1.BitBtn1Click(Sender: TObject); begin //module où se trouve la table1 et la datasource with Datamodule3 do begin if ( (table1.Locate('Libelle_Ville',Edit2.text,[locaseInsensitive]))and (table1 .Locate('ID_Ville',Edit3.text,[locaseInsensitive])) )then begin form1.Close(); // ou form1.Hide(); // ou form1.Release(); si tu ne l'utilisera plus jamais ensuite, donc aucun évènement dessus après ce OnClick form2.ShowModal(); end else ShowMessage('essaye encore!!'); end; end;

---

Il faut biensur vérifier si tu n'as pas une Action particulièrement dans le Form1.OnClose, pour une fenêtre Style fsNormal, c'est caHide (cela ne libère pas la fenêtre mais la cache, en général, c'est le plus pratique, cela permet de gérer soit même la libération par un FreeAndNil) ou une contrainte dans OnCloseQuery !

Enfin, si Form1 est la 1ère fenêtre créé, il faut faire attention, si elle est considéré comme la MainForm, sa fermeture fermera ton programme (surement juste après la fermeture de Form2 grace au ShowModal)

On suppose aussi que tu es bien en SDI, que ne mélanges par Modal et MDIChild

---

Salut
j'ai utilisé les process dans l'ordre ci-dessous et le programme n'est plus exécution lorsque je ferme le form2:

Code:

---

1 2 3

form2.ShowModal; form1.Release; form1.close;

---

:D

Merci

Pourquoi tu indentes ?
Faut indenter quand c'est utile !

Sinon pourquoi Release ET Close ? En plus l'ordre est maladroit !

Tu as un problème de MainForm, utilise uniquement Hide , sinon, il faut créer Form2 avant Form1 dans le DPR