Discussion :

[chourmo]

Bonjour,
mon appli crée dynamiquement des onglets (on les appellera niveau I ).Dans chacun des onglets niveau I, je recrée d'autres onglets niveau II. Je rencontre le problème suivant : la création des onglets niveau II se fait mais dès que je clique sur un autre onglet niveau I, et que je reviens sur cet onglet niveau I, tous mes onglets niveau II ont disparu.
je pense que ce doit être un problème de parent ou un truc dans le genre, voici mon code :

//création des onglets niveau I
Pagecontrol_PersoFH:=TPageControl.Create(self);
Pagecontrol_PersoFH.Parent:=self;
for i_bond :=1 to 5
do begin
//--> création des onglets
ts_PersoFH[i_bond]:=TTabsheet.Create(self);
ts_PersoFH[i_bond].Caption:='Bond '+inttostr(i_bond);
ts_PersoFH[i_bond].PageControl:=Pagecontrol_PersoFH;
...
//création des onglets niveau II
Pagecontrol_PersoFH2:=TPageControl.Create(self);
Pagecontrol_PersoFH2.Parent:=Pagecontrol_PersoFH ? ;// self ? ;
for i_onglet_perso :=1 to 4
do begin
//--> création des onglets
ts_PersoFH2[i_onglet_perso]:=TTabsheet.Create(self);
ts_PersoFH2[i_onglet_perso].Parent:=Pagecontrol_PersoFH2 ?;// ts_PersoFH[i_onglet_perso]?;
ts_PersoFH2[i_onglet_perso].PageControl:=Pagecontrol_PersoFH2;
end;

merci pour toute aide
Seb

[TicTacToe]

A mon avis,
il faut que le parent (le conteneur), de ton pagecontrol de 2eme niveau soit un TTabSheet et non ton PageControl de 1er niveau.

Code :

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

PageControl2emeniveau.Parent = UnTabSheetDuPageControl1erNiveau

[chourmo]

A mon avis,
il faut que le parent (le conteneur), de ton pagecontrol de 2eme niveau soit un TTabSheet et non ton PageControl de 1er niveau.

J'ai essayé mais cela provoque une EAccess Violation. je viens de me rendre compte aussi que mon page control de niveau II devra être un tableau de pagecontrol car il en faudra un dans chaque onglet de niveau I.
et maintenant,

Code :

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

  Pagecontrol_PersoFH2[i_onglet_perso]:=TPageControl.Create(self);

fait aussi planter delphi
help !

[TicTacToe]

J'ai essayé le code suivant, il fonctionne correctement si ca peux t'aider...
Ensuite, il faut adapter à tes variables, et en nombres d'onglets...

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
 
var
   PG1, PG2: TPageControl;
   TTab1, TTab2: TTabSheet;
begin
     PG1 := TPageControl.Create( Self );
     PG1.Parent := Self;
     TTab1 := TTabSheet.Create( Self );
     TTab1.PageControl := PG1;
     TTab1.Caption := 'TTab1';
     PG2 := TPageControl.Create( Self );
     PG2.Parent := TTab1; // ou bien reprendre un TabSheet de PG1
     TTab2 := TTabSheet.Create( Self );
     TTab2.PageControl := PG2;
     TTab2.Caption := 'TTab2';
end;

remarque: l'affecation d'un tabsheet à un page control, affecte automatiquement le parent du tabsheet à son pagecontrol

[chourmo]

merci pour ton coup de main.
Pour ceux que ça interesse de créer plusieurs onglets dans d'autres onglets :

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
 
  Pagecontrol_PersoFH:=TPageControl.Create(self);
  Pagecontrol_PersoFH.Parent:=self;
...
 
  for i_bond :=1 to strtoint(cbx_nombre_de_liaisons_FH_entre_les_deux_sites.Text)
  do begin
       //--> création des onglets
       ts_PersoFH[i_bond]:=TTabsheet.Create(self);
       ts_PersoFH[i_bond].Caption:='Bond '+inttostr(i_bond);
       ts_PersoFH[i_bond].PageControl:=Pagecontrol_PersoFH;
 
       Pagecontrol_PersoFH2[i_bond]:=TPageControl.Create(self);
       Pagecontrol_PersoFH2[i_bond].Parent:=ts_PersoFH[i_bond];
...
 
       for i_onglet_perso :=1 to 5
       do begin
            //--> création des onglets
            ts_PersoFH2[i_bond,i_onglet_perso]:=TTabsheet.Create(self);
            ts_PersoFH2[i_bond,i_onglet_perso].PageControl:=Pagecontrol_PersoFH2[i_bond];
          end;
end;