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.