Discussion :

[Invité]

Bonjour

j'ai une question sur les constructeurs

J'ai une fiche avec un constructeur a 2 parametres

Code :

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

1
2
 
__fastcall TF_MDIChildGrid::TF_MDIChildGrid(TComponent* Owner, char _Type) : TForm(Owner)

lorsque je fais

Code :

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

1
2
 
F_MDIChildGrid_articles = new TF_MDIChildGrid(this, 1);

le debugueur m'indique que l'execution est sur l'entete de mon constructeur:

Code :

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

1
2
 
__fastcall TF_MDIChildGrid::TF_MDIChildGrid(TComponent* Owner, char _Type) : TForm(Owner)

puis sur:

Code :

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

1
2
 
/* TCustomForm.Create */ inline __fastcall virtual TForm(Classes::TComponent* AOwner) : TCustomForm(AOwner) { }

puis 2 fois de suite sur:

Code :

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

1
2
 
/* TCustomForm.CreateNew */ inline __fastcall virtual TForm(Classes::TComponent* AOwner, int Dummy) : TCustomForm(AOwner, Dummy) { }

puis sur

Code :

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

1
2
 
void __fastcall TF_MDIChildGrid::FormActivate(TObject *Sender)

Du coup le corps de mon constructeur n'est pas executé, ce qui est facheux.

Quelqu'un aurait une idée ?

Merci

[henderson]

Salut !

Quelle est la classe de base : TForm ou TCustomForm ?
Avec BCB 3 Pro je fais comme ça :

Code :

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

1
2
3
4
5
6
7
class TMaForm : public TCustomForm
{
public :
//char c;
       __fastcall TMaForm(TComponent *Owner, char C);
       __fastcall ~TMaForm();
};

Code :

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

1
2
3
4
5
__fastcall TMaForm::TMaForm(TComponent *Owner, char C)
    : TCustomForm(Owner, 0)
{
//char c = C;
}

Code :

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

1
2
3
__fastcall TMaForm::~TMaForm()
{
}

Usage qui ne pose aucun problème :

Code :

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

1
2
3
4
5
6
7
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
TMaForm *F = new TMaForm(Owner, 10);
F->SetBounds(40,40,100,100);
F->Show();
}

Ce serait intéressant de savoir si ce bout de code pose problème.

A plus !

[Invité]

J'ai testé le ton code henderson
avec la classe qui descent de TCustomForm

Ca marche sous BCB6 pas de probleme !