Discussion :

[ludojojo]

J'ai un problème sur le passage d'une form à une autre...
En VBA pour passer d'une je faisait quelque chose dans ce style :

Code :

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

1
2
UserForm1.hide()
Userform2.show()

Et inversement pour revenir à la première...
Mon pb c'est que je n'arrive pas a faire quelque chose d'équivalent en c++...
Car lorsque je quitte ma deuxième form, je tombe dans une boucle qui me pose pb, voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
TFileStream * file;
   TForm6 *F;
   F = new TForm6(Form6);
   if (FileExists("c:\\MAJ\\Gestion des utilisateurs.txt"))
   {
      //Form5->Hide();
      F->ShowModal();
 
   }
   else
{...}

Une fois la deuxième fenêtre fermer je bloque...
Quelqu'un pourrait il m'éclairer?

[pottiez]

C'est parce que tu utilise le ShowModal, qui permet de bloquer l'exécution du code tant que la fenêtre est ouverte, ce qui n'est apparemment pas ton but, si j'ai bien compris.

[Freud44]

Dans mes différents prog, j'instancie depuis ma form principale, les autre form au besoin.

Donc dans le prog que je développe actuellement, lorsque j'appuie sur un bouton j'ai un code de ce genre :

Code :

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

1
2
3
 
ObjFormAjoutFamille = new TFormAjoutFamille(ObjAdministration, Owner);
ObjFormAjoutFamille->Visible = true;

Dans ton cas je pense que tu peux faire :

Code :

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

1
2
 
F->Visible = true;

[ludojojo]

ok cela m'affiche ma seconde fenêtre sans problème mais lorsque je la ferme j'ai une erreur qui me dit "violation accès mémoire..."à l'adresse 400F19DD dans le module vcl60.bpl Lecture de l'adresse 000002EC"

pour la fermeture de ma deuxième form j'ai ça :

Code :

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

1
2
3
4
void __fastcall TForm6::FormCloseQuery(TObject *Sender, bool &CanClose)
{
   Form6->Close();
}

Est ce que le problème viens de la?

[Freud44]

Oui je pense.
si tu veux la fermer, utilise plutôt :

Code :

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

1
2
3
 
 
F->Visible = false;

Sachant que lorsque ton programme sera quitté, ou du moins la classe dans laquelle tu instancies ta form, ton objet F sera détruit aussi.

[pottiez]

Oui, car la tu essaye de fermer une fenêtre déjà fermé, il faut que tu mette

Code :

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

1
2
3
4
void __fastcall TForm6::FormCloseQuery(TObject *Sender, bool &CanClose)
{
  CanClose = true;
}

[Freud44]

Je connaissais pas le canClose.

Ca permet d'autoriser la fermeture d'une fenêtre? ou du moins d'intéragir avec celle ci?

[pottiez]

Pour libérer la mémoire lors de la fermeture de la fenêtre il faut mettre Action = caFree dans l'événement OnClose de ta fenêtre

[pottiez]

Le CanClose permet de verrouiller la fermeture de la fenêtre, et cela en mettant true ou false au paramètre CanClose de cet evenement

[ludojojo]

J'ai une erreur qui me dit que CanClose n'est pas définie... pourtant il est bien dans les paramètres de la fonction, c'est du à quoi? il faut rajouter une librairie?

[pottiez]

Normalement il n'y a rien d'autre faire, si tu as bien mis le code dans l'événement OnCloseQuery.
Sinon montre ton bout de code

[ludojojo]

Code :

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

1
2
3
4
void __fastcall TForm6::FormCloseQuery(TObject *Sender, bool &CanClose)
{
   CanClose = true;
}

Je n'ai rien de plus dans cette fonction...
Voici le code complet de ma form :

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include "Unit5.h"
#include "Unit6.h"
#include <fstream> // utile pour la fonction d'ajout de ligne
 
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm6 *Form6;
TForm5 *Form5;
TFileStream * User_file;
//---------------------------------------------------------------------------
__fastcall TForm6::TForm6(TComponent* Owner)
        : TForm(Owner)
{
User_file = new TFileStream("c:\\MAJ\\Gestion des utilisateurs.txt",fmCreate);
   TForm6 *F;
   F = new TForm6(Form6);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm6::Button2Click(TObject *Sender)
{
   CanClose = true;  //Le CanClose permet de verrouiller la fermeture de la
                    //fenêtre, et cela en mettant true ou false au paramètre
                    //CanClose de cet evenement
}
//---------------------------------------------------------------------------
 
void __fastcall TForm6::FormCloseQuery(TObject *Sender, bool &CanClose)
{
   CanClose = true;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm6::Button1Click(TObject *Sender)
{
 
   if (FileExists("c:\\MAJ\\Gestion des utilisateurs.txt"))
   {
     String Login_value = Edit_nouvel_utilisateur->Text;
     User_file->Write(Login_value.c_str(),Edit_nouvel_utilisateur->Text.Length());//Login_value.Length());
     User_file->Write(",",1);
     String mdp_value = Edit_nvx_mdp->Text;
     User_file->Write(mdp_value.c_str(), mdp_value.Length());
     AjouterLigne();
   }
   else
   {
     User_file = new TFileStream("c:\\MAJ\\Gestion des utilisateurs.txt",fmCreate);
     String Login_value = Edit_nouvel_utilisateur->Text;
     User_file->Write(Login_value.c_str(),Login_value.Length());
     String mdp_value = Edit_nvx_mdp->Text;
     User_file->Write(mdp_value.c_str(), mdp_value.Length());
     AjouterLigne();
   }
}
//---------------------------------------------------------------------------
 
TForm6::AjouterLigne()
{
   // std::ios_base::out est automatiquement ajouté par le
   // constructeur de std::ofstream
   std::ofstream file( "c:\\MAJ\\Gestion des utilisateurs.txt", std::ios_base::app );
   file << "Une ligne\n";
}

[pottiez]

C'est dans ton Button2Click qu'est l'erreur, définit plutôt un booleen dans ton .h que tu appelle myCanClose par exemple et tu met ce 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
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include "Unit5.h"
#include "Unit6.h"
#include <fstream> // utile pour la fonction d'ajout de ligne
 
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm6 *Form6;
TForm5 *Form5;
TFileStream * User_file;
//---------------------------------------------------------------------------
__fastcall TForm6::TForm6(TComponent* Owner)
        : TForm(Owner)
{
User_file = new TFileStream("c:\\MAJ\\Gestion des utilisateurs.txt",fmCreate);
   TForm6 *F;
   F = new TForm6(Form6);
  myCanClose = false;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm6::Button2Click(TObject *Sender)
{
   myCanClose = true;  //Le CanClose permet de verrouiller la fermeture de la
                    //fenêtre, et cela en mettant true ou false au paramètre
                    //CanClose de cet evenement
}
//---------------------------------------------------------------------------
 
void __fastcall TForm6::FormCloseQuery(TObject *Sender, bool &CanClose)
{
   CanClose = myCanClose;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm6::Button1Click(TObject *Sender)
{
 
   if (FileExists("c:\\MAJ\\Gestion des utilisateurs.txt"))
   {
     String Login_value = Edit_nouvel_utilisateur->Text;
     User_file->Write(Login_value.c_str(),Edit_nouvel_utilisateur->Text.Length());//Login_value.Length());
     User_file->Write(",",1);
     String mdp_value = Edit_nvx_mdp->Text;
     User_file->Write(mdp_value.c_str(), mdp_value.Length());
     AjouterLigne();
   }
   else
   {
     User_file = new TFileStream("c:\\MAJ\\Gestion des utilisateurs.txt",fmCreate);
     String Login_value = Edit_nouvel_utilisateur->Text;
     User_file->Write(Login_value.c_str(),Login_value.Length());
     String mdp_value = Edit_nvx_mdp->Text;
     User_file->Write(mdp_value.c_str(), mdp_value.Length());
     AjouterLigne();
   }
}
//---------------------------------------------------------------------------
 
TForm6::AjouterLigne()
{
   // std::ios_base::out est automatiquement ajouté par le
   // constructeur de std::ofstream
   std::ofstream file( "c:\\MAJ\\Gestion des utilisateurs.txt", std::ios_base::app );
   file << "Une ligne\n";
}

[pottiez]

Déjà un des problème c'est que dans le constructeur de TForm6 tu recré une nouvelle TForm6, donc tu créé en boucle des fenêtres

[ludojojo]

bien sur C'était tellement évident j'ai un autre problème maintenant mais rien a voir avec ce post alors je vais en créer un autre merci bcp cela fonctionne très bien merci pour tout.

[ludojojo]

Re bonjour,
Je suis dsl de reprendre se post mais j'ai un petit soucis avec ce bout de code, et je pense qu'il serai simple de le reprendre ici en ayant le reste de la discution.
Mon problème c'est que maintenant lorsque je clique sur le bouton annuler je met la variable myCanCancel a true, mais cela ne m'aide pas à fermer ma fenêtre, de plus lorsque je fermer ma fenêtre avec la fonction FormCloseQuery, celle ci ne se ferme pas directement.
En gros avec ce bout de code je suis obligé de cliquer sur le bouton annuler puis de cliquer sur la croix pour fermer... Ce qui n'est pas le but recherché.
Alors je me suis dit que je pourais faire quelque chose comme cela :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
void __fastcall TForm6::Button_AnnulerClick(TObject *Sender)
{
   myCanClose = true;  //Le CanClose permet de verrouiller la fermeture de la
                    //fenêtre, et cela en mettant true ou false au paramètre
                    //CanClose de cet evenement
   Form_ajout_utilisateur->FromCloseQuery(Sender,myCanClose);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm6::FormCloseQuery(TObject *Sender, bool &CanClose)
{
   CanClose = true;
}

Mais le problème c'est que cela ne fonctionne pas bien sur.
Alors je vous demande encore un peut d'aide pour ce petit soucis.

[ludojojo]

J'ai trouvé une solution à mon problème,
Je créer mes fenêtre de façon modal avec FormX->ShowModal() ensuite pour la fermer il me suffit de faire ModalResult = 1

Merci à Traxsilver pour la solution!

[pottiez]

C'est normal que ton code ne fonctionne pas, il faut mettre ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
void __fastcall TForm6::Button_AnnulerClick(TObject *Sender)
{
   myCanClose = true;  //Le CanClose permet de verrouiller la fermeture de la
                    //fenêtre, et cela en mettant true ou false au paramètre
                    //CanClose de cet evenement
   Form_ajout_utilisateur->Close();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm6::FormCloseQuery(TObject *Sender, bool &CanClose)
{
   CanClose = myCanClose;
}