Discussion :

[lenrok]

Bonjour à tous,

Dans mon programme, j'utilise plusieurs TForm. Chaque TForm ont des rôles différents.
L'un d'elle doit assurer l'initialisation du Caption de TRadioButton. J'essaye d'envoyer ces données vers un autre TForm et cela ne fonctionne pas!
Voici Tform.h dans laquelle je déclare mes données en PUBLIC

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
 
...
//Variable pour les transmissions de catégorie Poids
//entre Fenêtre Catégorie Officielle et Fenêtre Impression POULE
//Catégorie POUSSIN MASCULIN
AnsiString vPM1, vPM2, vPM3, vPM4, vPM5, vPM6, vPM7, vPM8, vPM9, vPM10;
//Catégorie POUSSIN FEMININ
AnsiString vPF1, vPF2, vPF3, vPF4, vPF5, vPF6, vPF7, vPF8, cPF9, vPF10;
//Catégorie BENJAMIN MASCULIN
AnsiString vBM1, vBM2, vBM3, vBM4, vBM5, vBM6, vBM7, vBM8, vBM9, vBM10;
//Catégorie BENJAMIN FEMININ
AnsiString vBF1, vBF2, VBF3, vBF4, vBF5, vBF6, vBF7, vBF8, vBF9, vBF10;
//Catégorie MINIME MASCULIN
AnsiString vMM1, vMM2, vMM3, vMM4, vMM5, vMM6, vMM7, vMM8, vMM9, vMM10;
//Catégorie MINIME FEMININ
AnsiString vMF1, vMF2, vMF3, vMF4, vMF5, vMF6, vMF7, vMF8, vMF9, vMF10;
};
//---------------------------------------------------------------------------
extern PACKAGE TPoule *Poule;
//---------------------------------------------------------------------------
#endif

Je manipule des données de type :

Code :

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

1
2
 
TLabel->Caption   vers TRadioButton->Caption

Le résultat est l'affichage d'une zone vierge dans TRadioButton->Caption

Pouvez-vous m'aider ?
Merci d'avance à tous et Meilleurs Voeux pour l'année 2007...

[bandit boy]

Salut,
Tu peux accéder aux variables des TForm en les déclarants (#include Formx.h) et en accédants aux composants:

Code :

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

Form1->RadioButton1->Caption

Au besoin tu peux déclarer une variable dans un .h et la déclarer en extern dans un autre .h pour y avoir accès.

[Taka's tiger]

je dit ca sans connaitre les contrainte de ton prog..mais quand je vois

Code :

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

1
2
//Catégorie POUSSIN MASCULIN
AnsiString vPM1, vPM2, vPM3, vPM4, vPM5, vPM6, vPM7, vPM8, vPM9, vPM10;

je me dit qu'un tableau ca serait mieux

Code :

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

1
2
//Catégorie POUSSIN MASCULIN
AnsiString vPM[10];

[lenrok]

Bonjour le amis,

Effectivement, l'utilisation d'un tableau est plus jusdicieux.
Par contre, je rencontre toujours des problèmes de passage de données d'un TForm1 à un TForm2
J'ai essayé la solution de bandit boy

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
 
 
#include <vcl.h>
#pragma hdrstop
 
#include "CategorieOfficielle.h"
#include "PrintPoule.h"
#include "Formx.h"
 
 
//Variable pour les transmissions de catégorie Poids
//entre Fenêtre Catégorie Officielle et Fenêtre Impression POULE
//Catégorie POUSSIN MASCULIN
AnsiString vPM[10];
...

Voici le message en retour :

Code :

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

1
2
 
[C++ Erreur] CategorieOfficielle.cpp(8): E2209 Impossible d'ouvrir le fichier include 'Formx.h'

Du coup, je ne sais pas si j'ai bien compris la manipulation
J'ai essayé une autre piste celle des variables globales dans TForm1 et dans le TForm2 la même variable déclarée en extern

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
 
#include "CategorieOfficielle.h"
#include "PrintPoule.h"
//#include "Formx.h"
 
//Variable pour les transmissions de catégorie Poids
//entre Fenêtre Catégorie Officielle et Fenêtre Impression POULE
//Catégorie POUSSIN MASCULIN
AnsiString vPM[10];
...
void __fastcall TCatOfficielle::ValidOfficielleClick(TObject *Sender)
{
 vPM[0]="- 23 Kg";
 
 ShowMessage(vPM[0]);
 
}

Dans le TForm1, j'ai bien la prise en compte de la donnée "-23 Kg"; confirmation par affichage.
Et dans le TForm2 :

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
 
#include <vcl.h>
#pragma hdrstop
 
#include "PrintPoule.h"
#include "CategorieOfficielle.h"
 
extern vPM[10];
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TPoule *Poule;
//---------------------------------------------------------------------------
__fastcall TPoule::TPoule(TComponent* Owner)
        : TForm(Owner)
{
  float vHaut           = 2.5;
  float vBas            = 2.5;
  float vGauche         = 2.1;
  float vDroit          = 1.3;
  float vEntete         = 1.3;
  float vPieddepage     = 1.3;
  int vEchelle          = 100;
  int vPaysage          = 2;
 
  //Affichage Valeur Catégorie Officielle Poids
  ShowMessage(vPM[0]);
 
  //Création Instance EXCEL
  //Affichage classeur visible
  vMSExcel = Variant::CreateObject("Excel.Application");
  vMSExcel.OlePropertySet("Visible", true);

L'affiche me donne la valeur 0, pourquoi ???
Là aussi je tombe dans une impasse
Pouvez vous m'aider suis-le bien sur la bonne voie ?
Merci à tous....

[kmaniche]

Bonsoir,

j'ai repris un peut ton code, j'ai fais :

1. Un projet contenant 2 TForm : Tform1, TForm2.

2. Dans TForm1 j'ai déclaré de façon globale un tableau sur dess String :
le .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
 
#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
private:    // Déclarations de l'utilisateur
public:        // Déclarations de l'utilisateur
 
String vPM[10] ;
        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

le .cpp :

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
 
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 for(int i = 0 ; i < 10 ; i++)
   vPM[i] = "coucou" ;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormClick(TObject *Sender)
{
Form2 -> Show() ;
}
//---------------------------------------------------------------------------

2. Dans TForm2 j'ai afficher le contenu de vPM/TForm1 :

le .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
 
//---------------------------------------------------------------------------
 
#ifndef Unit2H
#define Unit2H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm2 : public TForm
{
__published:    // Composants gérés par l'EDI
private:    // Déclarations de l'utilisateur
public:        // Déclarations de l'utilisateur
        __fastcall TForm2(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm2 *Form2;
//---------------------------------------------------------------------------
#endif

le .cpp :

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
 
 //---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit2.h"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
 
 
void __fastcall TForm2::FormClick(TObject *Sender)
{
for(int i = 0 ; i < 10 ; i++)
  ShowMessage(Form1 -> vPM[i]) ;
}
//---------------------------------------------------------------------------

et ça marche nickel.

à toi de comparer et voir où est le problème dans ton application.

bon courage.

[lenrok]

Bonjour kmaniche,

Je me suis basé sur ton code et Effectivement cela fonctionne
Par contre, ensuite j'ai commencé à modifier ton code pour le passage d'un TEdit au TForm2.
Cela fonctionne très bien

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
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Form2 -> Show() ;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
//for(int i = 0 ; i < 1 ; i++)
//   vPM[i] = "coucou" ;
   vPM =Edit1->Text ;
}

Par contre, mon idée est de passer TEdit1 Form1 à TEdit2 Form2 ou TEdit1Form1 à RadioButton1 TForm2
Etant donné que ces boutons sont du même type, le passage devrait se faire normalement Ou alors, selon les catégories le concept de passage de données est différent ce qui explique mes problèmes de manipulation
kmaniche pour ton aide...