Discussion :

[qi130]

Je viens de voir le paragraphe relatif dans la FAQ:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Var MonBouton:TButton;
procedure TForm1.Button1Click(Sender: TObject);
begin
  { La fenêtre est propriétaire du nouveau bouton }
  MonBouton := TButton.Create(Self);
  { mais c'est dans Panel1 qu'il doit s'afficher }
  MonBouton.Parent := Panel1;
  { ensuite on définit les autres propriétés }
  MonBouton.Caption := 'Bouton !';
  MonBouton.Left := 10;
end;

et mon interrogation est la suivante:

Dans le cas où on doit créer plusieurs TButtons ayant le même parent, ce code marche t'il ?
Faut-il déclarer autant de variables que de boutons à créer ?

Merci pour vos lumières.

[Nono40]

Oui ce code fonctionne quel que soit le nombre de boutons. Il faut bien sur penser à les répartir sur la surface du parent.

Les variables ne sont pas utiles, tu peux utiliser la même pour tous les boutons. Il est même possible de s'en passer :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  With TButton.Create(Self) Do
  Begin
    { mais c'est dans Panel1 qu'il doit s'afficher } 
    Parent := Panel1; 
    { ensuite on définit les autres propriétés } 
    Caption := 'Bouton !'; 
    Left := 10; 
  End;
end;

[qi130]

Donc ceci doit marcher ?

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
procedure TOKBottomDlg26.TabSheet7Enter(Sender: TObject);
var i:integer;
begin
     for i:=1 to 7 do begin
        l1:= TLabel.create(self);
        l1.Parent:=Sender as TTabsheet;
        l1.Left:=15;
        l1.Top:=23+(50*(i-1));
        l1.Width:=189;
        l1.Autosize:=false;
        l1.Layout:=tlCenter;
        l1.WordWrap:=True;
        l1.Caption:=inttostr(i);
 
     end;
end;

(avec l1:TLabel)

J'ai cependant un doute sur le parent...et sur la survenance de l'event "Enter" d'un tabsheet...et l'aide est très générale dans delphi !

[Sub0]

Ton code fonctionnera à condition
• Que tu ajoutes un nom aux composants (propriété Name)...
• Que tu inclus le Create dans l'expression du WITH...DO (comme dans l'exemple de Nono40)...
• Et que tu supprimes tout ces "l1." qui ne servent à rien dans ce cas!
Par exemple:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
For i:=1 To 7 Do 
  With TButton.Create(Self) Do 
  Begin 
    Parent:=Sender as TTabsheet; 
    Left:=15; 
    Top:=23+(50*(i-1)); 
    Width:=189; 
    Autosize:=False; 
    Layout:=tlCenter; 
    WordWrap:=True; 
    Caption:=IntToStr(i); 
    Name:='Label'+IntToStr(i);
  End;

Moi non plus, je ne suis pas sûr en ce qui concerne le parent dans cet exemple...

• Si tu cherches à faire un tableau d'objet, c'est différent:

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 L:Array[1..7]Of TLabel;
...
 
For i:=1 To 7 Do 
  Begin 
    L[i]:=TLabel.Create(Self); 
    L[i].Parent:=Sender as TTabsheet; 
    L[i].Left:=15; 
    L[i].Top:=23+(50*(i-1)); 
    L[i].Width:=189; 
    L[i].Autosize:=False; 
    L[i].Layout:=tlCenter; 
    L[i].WordWrap:=True; 
    L[i].Caption:=IntToStr(i); 
    L[i].Name:='Label'+IntToStr(i);
  End;

[qi130]

Bon, ça avance...
Je reprends un "ancien" problème pour lequel j'avais déjà posté: 63 composants par onglet, 8 ou 9 onglets par PageControl, 8 PageControl; mais tout ça dépasse les possibilités des postes d'exploitation (sans compter le temps de création ). Bref, je m'attèle au dynamique...

Bien, le code de Nono va m'être très utile, et pour le parent, j'ai trouvé:
1/ la création des compo se fait lors du changement de Tabsheet c'est l'événement OnChange du PageControl qui sollicite la proc de création
2/ pour le parent, je code:

Code :

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

Parent:=(Sender as TPageControl).ActivePage;

3/ oui, le nom, faut pas que j'oublie....

Dernier point: en laissant en l'état, chaque fois que je change de tabsheet, je crée les composants; et donc si j'active tous les tabsheets, je vais me retrouver avec autant de compos que s'il étaient en dur sur la fiche; et je ne parle pas des créations en double si on revient sur un tabsheet qui a déjà été visité

D'où cette question : comment procéder à la suppression ?

Il me semble que cette suppression doit intervenir sur déclenchement de l'événement "OnChanging" qui a l'air de précéder le "OnChange" du PageControl.

Faut-il "boucler" sur le Parent (Sender as TPageControl).ActivePage avec un FindComponent ?
Ou bien utiliser les noms des compo ? (je les maitrise puisque c'est moi qui les affecte)

[lil_jam63]

Ta solution avec la boucle et le fidComponjent me semble etre une bonne solution.