[BCB6] Fermeture d'une TForm

Version imprimable

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

Code:

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:

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.

11/06/2008, 00h31
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.
11/06/2008, 09h00
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.

Voila ce qu'il faut que tu fasse :
Code:

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

11/06/2008, 09h36
pottiez

Exactement, le mieux serai à la fin de l'événement BtnOkClick :king:
11/06/2008, 10h36
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?
11/06/2008, 10h37
pottiez

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

Code:

ModalResult = mrOk;

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

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

Code:

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;
}

11/06/2008, 10h50
pottiez

Exactement, les Forms ouvert en ShowModale ne se ferme que lorsque la propriété modalResult est attribué à une valeur différente de mrNone
11/06/2008, 11h03
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.