//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;
Partager