Discussion :

[Draner]

Bonsoir tout le monde,
J'ai un petit souci. J'aimerais fermé ma Form2 que j'ai ouverte comme suit:

Code :

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

1
2
3
4
5
6
7
8
 
//Si on viens à choisir la boite de dialogue par le menu.
 
void __fastcall TForm1::Configurations1Click(TObject *Sender)
{
        //On ouvre la boite de dialogue.
        Form2->ShowModal();
}

Mais voilà avant de fermé brutalement cette Form2, j'aimerais que cela exécute le code suivant.

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
 
//L'utilisateur désire enregistrer et quitter la fenêtre de configuration.
 
void __fastcall TForm2::BtnOkClick(TObject *Sender)
{
        //Déclaration des variables utilisées pour enregistrer les données issue de la saisie
        //vers Préférence.ini.
        char ChampHost[50], ChampPort[50], ChampIdentifiant[50], ChampMDP[50], ChampAdresseEmeteur[50], ChampAdresseRecepteur[50];
        char CheminPreferenceIni[100];
 
        //On chargera les données issu du fichier préférence.ini.
        if(Form1->TestFichier(Form1->DestPreferenceIni))
        {
                //Corvertie toutes les données saisie par l'utilisateur.
                AnsiToChar(ChampHost, EditHost->Text);
                AnsiToChar(ChampPort, EditPort->Text);
                AnsiToChar(ChampIdentifiant, EditIdentifiant->Text);
                AnsiToChar(ChampMDP, EditMdp->Text);
                AnsiToChar(ChampAdresseEmeteur, EditMailEmeteur->Text);
                AnsiToChar(ChampAdresseRecepteur, EditMailRecepteur->Text);
 
                //Convertie au format char le chemin du fichier ini qui est au format AnsiString.
                AnsiToChar(CheminPreferenceIni, Form1->DestPreferenceIni);
 
                //Enregistre les données saisie dans le fichier Préférence.ini.
                WritePrivateProfileString("Mail", "Host", ChampHost, CheminPreferenceIni);
                WritePrivateProfileString("Mail", "Port", ChampPort, CheminPreferenceIni);
                WritePrivateProfileString("Mail", "Identifiant", ChampIdentifiant, CheminPreferenceIni);
                WritePrivateProfileString("Mail", "MotDePasse", ChampMDP, CheminPreferenceIni);
                WritePrivateProfileString("Mail", "EmailEnvoie", ChampAdresseEmeteur, CheminPreferenceIni);
                WritePrivateProfileString("Mail", "EmailDestinataire", ChampAdresseRecepteur, CheminPreferenceIni);
        }
 
        //Ferme la fenêtre de configuration.
 
}

Pardonnez moi la longueur du code, mais il me paraît plus évident de faire ainsi et de placer mon code, que de vous faire un long discours. Çà devrais vous permettre de mieux comprendre mon attente en ayant le celui-ci sous les yeux

J'avoue que je ne voie pas trop quoi faire!
Avez vous une solution dans ce cas précis ?
Merci pour vos réponses.
Cordialement.

[b_reda31]

Bonsoir,
Je pense qu'en utilisant l'événement OnCloseQuery de la forme,cela pourrait résoudre votre problème.

Vous pouvez modifier le paramètre CanClose de cette méthode afin d'empêcher la fermeture de la forme avant d'avoir effectué les traitements.

[Draner]

Et comment je puis réaliser un tel code?
Je ne voie pas trop à l'endroit ou j'ai le commentaire "//Ferme la fenêtre de configuration.".
Si quelqu'un pouvais m'aiguillé sur un exemple ca serais un plus.
Cordialement.

[ludojojo]

Voila ce qu'il faut que tu fasse :

Code :

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

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

tu peux aussi le mettre dans n'importe quel autre fonction...

[pottiez]

Exactement, le mieux serai à la fin de l'événement BtnOkClick

[Draner]

Il y a une chose que je ne comprend pas...
Faut il que je mette la methode dans celle du bouton?
Ou faut il que je face un appel vers celle du FormCloseQuery depuis le bouton?

[pottiez]

Non tu doit mettre a la fin de la fonction BtnOkClick la ligne

Code :

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

ModalResult = mrOk;

Comme cela, la form va se fermer dès que tu clique sur le bouton ok

[Draner]

Et le code précédent s'exécute avant donc.
en gros ca reviendrais à faire:

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
//L'utilisateur désire enregistrer et quitter la fenêtre de configuration.
 
void __fastcall TForm2::BtnOkClick(TObject *Sender)
{
        //Déclaration des variables utilisées pour enregistrer les données issue de la saisie
        //vers Préférence.ini.
        char ChampHost[50], ChampPort[50], ChampIdentifiant[50], ChampMDP[50], ChampAdresseEmeteur[50], ChampAdresseRecepteur[50];
        char CheminPreferenceIni[100];
 
        //On chargera les données issu du fichier préférence.ini.
        if(Form1->TestFichier(Form1->DestPreferenceIni))
        {
                //Corvertie toutes les données saisie par l'utilisateur.
                AnsiToChar(ChampHost, EditHost->Text);
                AnsiToChar(ChampPort, EditPort->Text);
                AnsiToChar(ChampIdentifiant, EditIdentifiant->Text);
                AnsiToChar(ChampMDP, EditMdp->Text);
                AnsiToChar(ChampAdresseEmeteur, EditMailEmeteur->Text);
                AnsiToChar(ChampAdresseRecepteur, EditMailRecepteur->Text);
 
                //Convertie au format char le chemin du fichier ini qui est au format AnsiString.
                AnsiToChar(CheminPreferenceIni, Form1->DestPreferenceIni);
 
                //Enregistre les données saisie dans le fichier Préférence.ini.
                WritePrivateProfileString("Mail", "Host", ChampHost, CheminPreferenceIni);
                WritePrivateProfileString("Mail", "Port", ChampPort, CheminPreferenceIni);
                WritePrivateProfileString("Mail", "Identifiant", ChampIdentifiant, CheminPreferenceIni);
                WritePrivateProfileString("Mail", "MotDePasse", ChampMDP, CheminPreferenceIni);
                WritePrivateProfileString("Mail", "EmailEnvoie", ChampAdresseEmeteur, CheminPreferenceIni);
                WritePrivateProfileString("Mail", "EmailDestinataire", ChampAdresseRecepteur, CheminPreferenceIni);
        }
 
        //Ferme la fenêtre de configuration.
        ModalResult = mrOk;
}

[pottiez]

Exactement, les Forms ouvert en ShowModale ne se ferme que lorsque la propriété modalResult est attribué à une valeur différente de mrNone

[Draner]

Ok!
Par défaut, j'avais laissé à mrNone pensant qu'il falait faire une destruction de la fenêtre. Mais si effectivement ça fonctionne comme celà. Ca me va très bien!
Je test celà ce soir.
Merci encore pour vos indications et précisions.
Cordialement.


Je me permet de réediter le post car j'ai relevé une erreur dans le code précédent.
Il faut en réalisé remplacer ModalResult = mrOk;par Form2->ModalResult = mrOk;
Effectivement cela fonctionne correctement.
Encore merci pour ces précieuses indications.
Cordialement.