[Delphi 6 Perso] Créations dynamiques en cascade

Version imprimable

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:

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 8O

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

29/09/2005, 16h35
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:

Parent:=TTabSheet(PageControl1.FindComponent('Ch'+IntToStr(j)));
29/09/2005, 16h41
e-ric

Salut

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

cdlt

e-ric
29/09/2005, 16h48
qi130

Nono, tu mérites bien toutes tes étoiles :wink:

Merci.
29/09/2005, 17h18
e-ric

J'avais mal lu

e-ric