Discussion :

[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...

Je vous transmets ci-dessous le script:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

[Montor]

ajoute dans l'événement form2.OnShow

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

form1.close

Ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
  form2.show;
form1.close

Ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 form1.close;
 form2.showmodal;

[archonte]

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 : un bloc doit être encadré par begin ... end !!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

[jakol]

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....

[jakol]

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

[archonte]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ? parce que tu ne peux pas fermer ta form principale sans terminer ton application ...

[jakol]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...


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

[mick605]

Salut

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Form1.Hide;
Form2.Show;

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Bonne chance !

[khaled-benloucif]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ShaiLeTroll]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jakol]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
form2.ShowModal;
   form1.Release;
         form1.close;

Merci

[ShaiLeTroll]

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