Discussion :

[qi130]

Suite à un post précédent, j'arrive à créer dynamiquement des TabSheet dans un pagecontrol.

Maintenant, je cherche à peupler le tabsheet créé avec d'autres composants:

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
 
     For j:=1 to i do begin
        with TTabSheet.Create(PageControl1) do begin
           PageControl:=PageControl1;
           Caption:='Champ '+IntToStr(j);
           Name:='Ch'+IntToStr(j);
           with TLabel.Create(self) do begin
              Left := 16;
              Top := 16;
              Width := 66;
              Height := 13;
              Caption := 'Longueur mini';
              Parent:=TTabSheet(FindComponent('Ch'+IntToStr(j)));
           end;
        end;

Mais le Label n'apparait pas

Qui voit ce que j'ai oublié ? (ou mal fait )

[Nono40]

Je me suis aussi fait piéger avec FindComponent. FindComponent est défini en public très tôt dans la hiérarchie. Donc ici avec les With tu n'utilises pas le FindComponent de la fiche mais celui.... du label ( le With le plus récent ). Alors que le propriétaire est le PageControl dans ton cas.

Utilise explicitement le find component :

Code :

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

Parent:=TTabSheet(PageControl1.FindComponent('Ch'+IntToStr(j)));

[e-ric]

Salut

Ajoute Visible := True; cela suffira peut-être.

cdlt

e-ric

[qi130]

Nono, tu mérites bien toutes tes étoiles

Merci.

[e-ric]

J'avais mal lu

e-ric