Problème de changement de propriétés sur un composant créé dynamiquement !

Version imprimable

26/02/2010, 11h49
petitclem

Problème de changement de propriétés sur un composant créé dynamiquement !

Bonjour à tous, :)

je vous expose mon problème : dans mon application, j'ai une fiche avec une Form qui appelle une autre unité qui créer des composants dynamiquement. Jusque là tout va bien car mais composants s'affiche bien sur ma Form. Mais lorsque je clique sur un des boutons créé je veux changer sa propriété Visible et là cela me procure une erreur !!!

Comment ca se fait que je ne puisse plus intervenir sur les propriétés de mes composants créés dynamiquement ?

Merci d'avance pour votre aide, à bientôt !
26/02/2010, 12h21
sat83

Il n'y a aucun soucis à manipuler des composant créés dynamiquement (Et heureusement!)
Tu dois probablement utiliser une référence incorrect ou invalide à l'objet, ce qui provoque une exception.

Poste le bout de code qui pose problème si tu souhaite de l'aide.

dans mon unité qui créer mes composants UComposants.cpp :

Code:

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
 
void Composants::Composants01 ()
{
 
 
 
	Button_1 = new TButton (FormEtalonnage);
	Button_2 = new TButton (FormEtalonnage);
	Button_3 = new TButton (FormEtalonnage);
	Label_1 = new TLabel (FormEtalonnage);
	Label_2 = new TLabel (FormEtalonnage);
	Label_3 = new TLabel (FormEtalonnage);
 
	FormEtalonnage->GroupBoxParam1->Caption = "pH :";
	FormEtalonnage->GroupBoxParam1->Font->Style = TFontStyles() << fsBold;
	FormEtalonnage->GroupBoxParam2->Caption = "Conductivité :";
	FormEtalonnage->GroupBoxParam2->Font->Style = TFontStyles() << fsBold;
 
	Button_1->Parent = FormEtalonnage->GroupBoxParam1;
	Button_1->Caption = "pH 4";
	Button_1->Font->Style = TFontStyles() << fsBold;
    Button_1->Font->Size = 10;
	Button_1->Top = 33;
	Button_1->Height = 25;
	Button_1->Left = 16;
	Button_1->Width = 97;
 
 
	Button_2->Parent = FormEtalonnage->GroupBoxParam1;
	Button_2->Caption = "pH 10";
	Button_2->Font->Style = TFontStyles() << fsBold;
	Button_2->Font->Size = 10;
	Button_2->Top = 80;
	Button_2->Height = 25;
	Button_2->Left = 16;
	Button_2->Width = 97;
 
	Button_3->Parent = FormEtalonnage->GroupBoxParam2;
	Button_3->Caption = "12,88 mS/cm";
	Button_3->Font->Style = TFontStyles() << fsBold;
	Button_3->Font->Size = 10;
	Button_3->Top = 48;
	Button_3->Height = 25;
	Button_3->Left = 16;
	Button_3->Width = 97;
 
	Label_1->Parent = FormEtalonnage->GroupBoxParam1;
	Label_1->Caption = "Etalonnage pH 4 en cours ...";
	Label_1->Font->Color = clRed;
	Label_1->Font->Size = 10;
	Label_1->Top = 38;
	Label_1->Left = 128;
	Label_1->AutoSize = true;
	Label_1->Visible = false;
 
	Label_2->Parent = FormEtalonnage->GroupBoxParam1;
	Label_2->Caption = "Etalonnage pH 10 en cours ...";
	Label_2->Font->Color = clRed;
	Label_2->Font->Size = 10;
	Label_2->Top = 86;
	Label_2->Left = 128;
	Label_2->AutoSize = true;
	Label_2->Visible = false;
 
	Label_3->Parent = FormEtalonnage->GroupBoxParam2;
	Label_3->Caption = "Etalonnage 12,88 mS/cm en cours ...";
	Label_3->Font->Color = clRed;
	Label_3->Font->Size = 10;
	Label_3->Top = 52;
	Label_3->Left = 128;
    Label_3->AutoSize = true;
	Label_3->Visible = false;
 
	ListeComposants->Add(Button_1);
	ListeComposants->Add(Button_2);
	ListeComposants->Add(Button_3);
	ListeComposants->Add(Label_1);
	ListeComposants->Add(Label_2);
	ListeComposants->Add(Label_3);
 
 
}

dans mon autre Form si appui sur le Button_1 :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
void __fastcall TFormEtalonnage::Envoi(TObject *Sender)
{
 
 
	Composants X;
 
	AnsiString Info =  "Confirmer " + FormEtalonnage->ComboBoxNumSerie->Items->Strings[FormEtalonnage->ComboBoxNumSerie->ItemIndex] + " ?";
 
	int Click = MessageBox(NULL, Info.c_str() , "Attention !", MB_ICONWARNING+MB_YESNO);
	if ((Click == IDYES))
	{
 
 
 
		X.Label_1->Visible = true;
		X.Button_1->Enabled = false;
 
         }
}

26/02/2010, 15h25
Invité

Composants X;

Dans ton code a l'air d'une variable locale, si c'est le cas, elle est vide, recréée à chaque appel de la fonction, et l'appel à X.Label1 finit forcément mal (il n'y a pas le Label1 au bout). Je pense que tu dois avoir une variable globale (ou d'instance) de type Composants, c'est celle là qu'il faut passer dans ta fonction.

Francois
26/02/2010, 15h38
petitclem

Merci fcharton mais je n'ai pas compris !

Pourrais tu m'expliquer s'il te plait ?
26/02/2010, 15h55
sat83
Dans ce code:
Code:

1 2 3 4 Composants X; //[...] X.Label_1->Visible = true; X.Button_1->Enabled = false;
X est une variable locale, et il n'est a aucun moment attribué a quelque chose. Donc lorsque tu tente d'accéder aux propriétés Label_1 ou Button_1, tu as une exception...

Comme l'explique fcharton, tu dois récupérer l'objet de type Composants que tu as instancié au départ.
27/02/2010, 15h07
henderson

Salut !

Je pense qu'il y a peut-être un problème de conception à la base !
Est-ce qu'on n'y gagnerait pas en dérivant de TGroupBox ?

A plus !
02/03/2010, 10h27
petitclem

Bonjour et merci à tous pour votre aide ! :)

Effectivement mon problème venait de ma variable qui était déclarée en locale ... :?

Merci encore et à bientôt ! :ccool: