Discussion :

[sergeprd]

Bonjours à tous.
J’espère ne pas avoir fait de doublon en ouvrant cette discussion.
Je tente de programmer une application composée d'une fiche principale sur laquelle se trouve un bouton.
Quand on clique sur ce dernier le programme créé une fiche dynamique contenant elle aussi un bouton (dynamique lui aussi!).
Ce dernier bouton devrait me permettre de fermer la fiche créée dynamiquement mais j’obtiens le message d'erreur suivant :Symbole "fiche1" non défini.
Je pense que ma Form dynamique fiche1 n'est pas déclarée correctement.

Voici le contenu de mon fichier .h :

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
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // Composants gérés par l'EDI
    TButton *Button1;
    void __fastcall Button1Click(TObject *Sender);
private:    // Déclarations utilisateur
TButton *MonBouton;
void __fastcall MonBoutonClick(TObject *Sender);
 
public:        // Déclarations utilisateur
    __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

Ainsi que le contenu du fichier CPP (unique dans cette application) :

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
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    TForm*fiche1 =new TForm(this);
 
    MonBouton = new TButton(this);
    MonBouton->Left = 40;
    MonBouton->Top = 40;
    MonBouton->Caption = "Bouton";
    MonBouton->Parent = fiche1;
 
 
    MonBouton->OnClick = MonBoutonClick;
    fiche1->ShowModal();
}
//---------------------------------------------------------------------------
 void __fastcall TForm1::MonBoutonClick(TObject *Sender)
{
    ShowMessage("Clic sur MonBouton = OK");
    //fiche1->Close(); //symbole fiche1 non défini
    delete fiche1; //symbole fiche1 non défini
}

Voila, j’espère que ma description est claire.

Merci pour votre Aide

[Crayon]

Salut, c'est un problème de scope, tu crée fiche1 dans la méthode Button1Click et tu le détruis dans MonBoutonClick. C'est normal qu'il ne soit pas accessible. Si tu veux il faut mettre fiche1 comme attribut privé à ta classe TForm1.

[sergeprd]

Salut, c'est un problème de scope, tu crée fiche1 dans la méthode Button1Click et tu le détruis dans MonBoutonClick. C'est normal qu'il ne soit pas accessible. Si tu veux il faut mettre fiche1 comme attribut privé à ta classe TForm1.

Merci Crayon,
je vais essayer et je te tiens au courant.

[sergeprd]

Merci Crayon,
je vais essayer et je te tiens au courant.

Re bonjour Crayon.

J'ai déclaré fiche1 comme tu me l'a indiqué.
Le programme se compile sans problème.
A l'utilisation il y a des choses que je ne comprends pas:

le code:

Code :

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

delete fiche1;

n'a aucun effet perceptible,

le code:

Code :

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

fiche1->Close();

provoque une erreur: Violation d’accès ....module vcl150.bpl ...


Je ne suis pas certain que la façon que j'ai utilisé pour déclarer "fiche1" soit correcte.

Voici la déclaration dans le fichier .h dans la class TForm1:

Code :

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

1
2
private:	// Déclarations utilisateur
TForm1 *fiche1;

Connais tu la façon de résoudre ce problème ?

Merci pour ta patience Crayon.

[Crayon]

Je ne suis pas certain que la façon que j'ai utilisé pour déclarer "fiche1" soit correcte.

Voici la déclaration dans le fichier .h dans la class TForm1:

Code :

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

1
2
private:	// Déclarations utilisateur
TForm1 *fiche1;

Connais tu la façon de résoudre ce problème ?

Merci pour ta patience Crayon.

Ce bout de code veux seulement dire qu'il y aura un pointeur de TForm1 qui sera accessible dans ta classe. Il faut quand même faire un new pour créer l'objet.

[ShaiLeTroll]

faire un delete dans un gestionnaire d'évènement est une grave erreur !

Attention que fiche1 ne soit pas à la fois un membre privé et une variable locale

cela vous arrive de lire l'aide ?
Pour fermer une fenêtre modale il faut affecter ModalResult de la form concerné ou alors il suffit de créer un TBitBtn avec le type bkClose qui ne nécessite aucun code, avec une variable locale !

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
 
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TForm* fiche1 = new TForm(NULL);
  try
  {
    MonBouton = new TBitBtn(fiche1);
    MonBouton->Left = 40;
    MonBouton->Top = 40;
    MonBouton->Kind = bkClose;		
    MonBouton->Parent = fiche1;
 
    fiche1->ShowModal();
  }
   __finally 
  {
     delete fiche1;
  }
}

[nirgal76]

tu déclare dans le .h (ce qui n'a rien à faire ici d'ailleurs puisqu'utilisé en variable locale)

Code :

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

TForm1 *fiche1;

et tu fais un

Code :

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

TForm*fiche1 =new TForm(this);

fiche1, tu veux que ce soit de type TForm* ou TForm1* ?
(TForm je pense)

et comme l'a corrigé le vilain Unas, utilise

Code :

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

TForm* fiche1 = new TForm(NULL);

plutot que

Code :

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

TForm* fiche1 = new TForm(this);

car si tu te charge du delete, fiche1 n'a pas besoin d'un owner dans son constructeur.
Et donne à ton bouton une valeur à sa propriété ModalResult pour qu'il ferme la fenêtre (si c'est là son unique but) car elle est à MrNone (0) par défaut. Et la fonction ShowModal ne sort que si ModalResult est <> 0 (cf. Forms.pas dans les sources de la VCL ou dans l'aide par la touche F1).

[sergeprd]

Bonjour à tous.

Merci d'avoir passé du temps pour résoudre mon problème.
Je vais tester les solutions que vous m'indiquez.

ShaiLeTroll, merci pour votre réponse.
Je lis l'aide associé au compilateur mais, malheureusement, je n'ai pas le niveau pour tout comprendre et assimiler rapidement.

Je vous tiens au courant.

[nirgal76]

Bonjour à tous.

Merci d'avoir passé du temps pour résoudre mon problème.
Je vais tester les solutions que vous m'indiquez.

ShaiLeTroll, merci pour votre réponse.
Je lis l'aide associé au compilateur mais, malheureusement, je n'ai pas le niveau pour tout comprendre et assimiler rapidement.

Je vous tiens au courant.

Au final, tu auras ça dans le code du bouton de ta fiche principale (moi sous BCB2010) :

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
 
  TForm* fiche1 = new TForm(reinterpret_cast<TComponent*>(NULL));
  try
  {
    TBitBtn* MonBouton = new TBitBtn(fiche1);
    MonBouton->Left = 40;
    MonBouton->Top = 40;
    MonBouton->Kind = bkClose; // Fait le ModalResult
    MonBouton->Parent = fiche1;
 
    fiche1->ShowModal();
  }
   __finally
  {
     delete fiche1;
  }

[Crayon]

lol, la fin de semaine je fait juste corriger les erreurs de compilation et de linker, j’essaie pas de comprendre se que le programmeur veux faire

sergeprd, regarde les derniers messages, c'est la bonne façon de faire.

[sergeprd]

Bonsoir à tous.

Je viens d'essayer les solutions que vous m'avez proposé.
Ca fonctionne presque comme je le veux.
je ferai demain de plus amples essais et je vous en soumettrez les résultats.

Merci beaucoup pour votre aide!

[sergeprd]

Bonjour à tous.

le seul "changement" que j'ai fait, c'est, remplacer:

Code :

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

MonBouton->Kind = bkClose;

par

Code :

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

MonBouton->Kind = mrOk;

Ca me permettra de mémoriser certaines variables avant de fermer "fiche1".
Je n'ai pas encore assimiler tout ce que vous m'avez appris, mais j'y travaille.

Mille remerciements à:

Crayon , ShaiLeTroll et nirgal76.

Je clôturerai cette discussion si personne n'a de remarque à faire sur le changement que j'ai effectué.

Sans votre aide, j'aurais abandonné.