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 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103
|
// .h Form1(Principale)
#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
public: // Déclarations utilisateur
__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif
// le .cpp de la Form1
#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)
{
TForm2* mForm2= new TForm2(NULL,"MonNom","MonPrenom"); // Creation dynamique en appelant le ocnstructeur spécialise
mForm2->ShowModal(); // Affichage de la fiche
delete mForm2; // finalement destruction
}
//---------------------------------------------------------------------------
// le .h de la Form2
#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
TEdit *Edit1;
TEdit *Edit2;
private: // Déclarations utilisateur
AnsiString FNom; // Membre privé contenant le Nom
AnsiString FPrenom; // Membre privé contenant le Prenom
public: // Déclarations utilisateur
__fastcall TForm2(TComponent* Owner);
__fastcall TForm2(TComponent* Owner,AnsiString Nom,AnsiString Premom); // Constructeur Spécialisé
};
//---------------------------------------------------------------------------
extern PACKAGE TForm2 *Form2;
//---------------------------------------------------------------------------
#endif
// le .cpp
//---------------------------------------------------------------------------
#include <vcl.h>
#include "Unit2.h"
#pragma hdrstop
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner,AnsiString Nom,AnsiString Premom)
: TForm(Owner), // ocnstructeru Spécialisé avec initilisation de la classe de base et ds membres privés
FNom(Nom),
FPrenom(Premom)
{
Edit1->Text=FNom; // affichage du résultat
Edit2->Text=Premom;
} |
Partager