Problème de création de frame en série au runtime

Version imprimable

Bonjour,

j'ai créé une frame qui ne fait rien pour l'instant
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 // --------------------------------------------------------------------------- #include <vcl.h> #pragma hdrstop #include "UnitTest.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TFrameTest *FrameTest; //--------------------------------------------------------------------------- __fastcall TFrameTest::TFrameTest(TComponent* Owner) : TFrame(Owner) { }
Et ensuite dans ma form principal, j'essaye de créer plusieurs instances de ma Frame:
Code:

1 2 3 4 5 6 7 8 9 10 __fastcall TFormPrincipal::TFormPrincipal(TComponent* Owner) : TForm(Owner) { for (int i = 0; i < 10; i++) { TFrameTest * frame = new TFrameTest(this); frame->Parent = this; } }
et j'obtiens l'erreur suivante : "EComponentError with message ' A component named FrameTest already exists."

Pourtant à un autre endroit dans mon projet, je créé des frames dynamiquement de cette façon sans problème !
Il doit donc y avoir une différence, mais impossible de trouver laquelle...
Ma question est donc, comment faire pour pouvoir insérer dynamiquement (au run time) plusieurs fois la même Frame ??

merci beaucoup pour votre aide
Pascale38

08/11/2018, 07h44
DjmSoftware

salut
le problème ne se situe pas dans la création d'instance de ta classe TFrameTest, mais dans le nom du composant FrameTest qui doit être unique.
Une des solutions serait d'indexer le nom du composant dans la boucle du style FrameTest1, FrameTest2....
cdlt
08/11/2018, 09h49
Pascale38

Merci pour ta réponse,

j'ai essayé ta solution en créant en "dur" quelques instances mais ça ne marche pas mieux.
C'est le nom "FrameTest" qui ne lui plait pas.
Mais surtout ce qui est étrange, c'est que j'y arrive dans une autre partie de mon application...

Pascale38

Salut Considère l'exemple suivant qui illustre mes propos
La Frame

le DFM

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
 
object FrameTest: TFrameTest
  Left = 0
  Top = 0
  Width = 127
  Height = 237
  TabOrder = 0
  object Label1: TLabel
    Left = 48
    Top = 99
    Width = 31
    Height = 13
    Caption = 'Label1'
  end
  object Label2: TLabel
    Left = 48
    Top = 122
    Width = 31
    Height = 13
    Caption = 'Label1'
  end
  object Label3: TLabel
    Left = 48
    Top = 145
    Width = 31
    Height = 13
    Caption = 'Label1'
  end
  object Label4: TLabel
    Left = 48
    Top = 168
    Width = 31
    Height = 13
    Caption = 'Label1'
  end
  object Label5: TLabel
    Left = 48
    Top = 191
    Width = 31
    Height = 13
    Caption = 'Label1'
  end
  object Memo1: TMemo
    Left = 0
    Top = 0
    Width = 127
    Height = 89
    Align = alTop
    Lines.Strings = (
      'Memo1')
    TabOrder = 0
    ExplicitLeft = 24
    ExplicitTop = 16
    ExplicitWidth = 185
  end
  object Button1: TButton
    Left = 32
    Top = 210
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 1
  end
end

le .H de la Frame

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
 
//---------------------------------------------------------------------------
 
#ifndef Unit92H
#define Unit92H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TFrameTest : public TFrame
{
__published:	// Composants gérés par l'EDI
	TMemo *Memo1;
	TLabel *Label1;
	TLabel *Label2;
	TLabel *Label3;
	TLabel *Label4;
	TLabel *Label5;
	TButton *Button1;
private:	// Déclarations utilisateur
public:		// Déclarations utilisateur
	__fastcall TFrameTest(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFrameTest *FrameTest;
//---------------------------------------------------------------------------
#endif

le .C de la Frame

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit92.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFrameTest *FrameTest;
//---------------------------------------------------------------------------
__fastcall TFrameTest::TFrameTest(TComponent* Owner)
	: TFrame(Owner)
{
}
//---------------------------------------------------------------------------

Le .H du programme de Test

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
//---------------------------------------------------------------------------
 
#ifndef Unit91H
#define Unit91H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm91 : public TForm
{
__published:	// Composants gérés par l'EDI
	private:	// Déclarations utilisateur
public:		// Déclarations utilisateur
	__fastcall TForm91(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm91 *Form91;
//---------------------------------------------------------------------------
#endif

et finalement le code

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
 
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit91.h"
#include "Unit92.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm91 *Form91;
//---------------------------------------------------------------------------
__fastcall TForm91::TForm91(TComponent* Owner)
	: TForm(Owner)
{
	   #define pad 10
	   for(int i=0;i<10;i++)
	   {
		TFrameTest* Frame= new TFrameTest(this);
		Frame->Name+=IntToStr(i);
		Frame->Parent=this;
		if(i==0)
			Frame->Left=0;
		else
		 Frame->Left=i*(Frame->Width+pad);
		Frame->Enabled=true;
		Frame->Visible=true;
	   }
}
//---------------------------------------------------------------------------

cdlt

08/11/2018, 15h31
Pascale38

Toutes mes excuses DjmSoftware, j'avais mal interprété ta réponse,
mais oui bien sûr ça fonctionne comme ça, ça me semble évident en plus maintenant, pfff :ptdr:

Ceci dit ça n'explique pas pourquoi ça marche ailleurs sans faire ça, dois y avoir un truc qui change le nom qq part que j'ai pas vu.

En tout cas merci beaucoup !!!!

Pascale38