Discussion :

[petitcoucou31]

Bonjour à tous,

J'ai un problème avec l'imbrication de composants créés dynamiquement.
Je suis dans dans une boucle, dans laquelle je crée des composants.

Par exemple: dans cette boucle, je crée un "Tpanel" dynamiquement et dans ce Panel je veux créer un bouton dynamiquement.
Je ne sais plus, tout simplement, comment indiquer au bouton qui est son "Parent" => le Tpanel.

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
24
25
26
27
 
     for i :=1 to Nombre do
     begin
     if (uppercase(ParametreMesure[indice].ParamHC[I])='B') then
     begin
          TPanel.Create(Self).Name :='P' +IntToStr(i);
          with TPanel(FindComponent('P' +IntToStr(i)))do
          begin
               Parent:=ScrollBox1;
               Align:=alleft;
               Top :=(i * 22)-20;
               Height:=22;
               Width:=80;
               blablabla...
               TAdvComboBox.Create(Self).Name :='PC' +IntToStr(i);
               with TAdvComboBox(FindComponent('PC' +IntToStr(i)))do
               begin
                    Parent:= ;    <== mon probleme est ici.
                    top:=0;
                    align:=alleft;
                    Width:=40;
                    blablabla...
                  end;
            end;
          end;
     end;
end;

En plus cela doit pas ... , mais je trouve pas !

Merci à tous !

[acaumes]

Bonjour


Pourquoi pas avec

Code :

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

Parent:= TPanel(FindComponent('P' +IntToStr(i)));

(C'est la méthode que tu utilises pour récupérer ton Tpanel dans ton with).

Pour ma part, je déclarerais une variable de type TPanel à laquelle j’affecterais le Tpanel au moment de la création et du coup plus besoin de faire les FindComposant...

Cordialement

[retwas]

Effectivement une variable TPanel ne serait pas du luxe, tout comme un peu d'espace avant et après les "="
Personnellement j'évite d'utiliser les with, ne serait ce que pour la re-lecture.

Sur les chaines tu peux utiliser directement les ToInteger ou ToUpper.

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
24
25
26
27
28
var 
  pa  : TPanel;
  i   : integer;
  acb : TAdvComboBox;
begin
  for i :=1 to Nombre do
  begin
    if UpperCase(ParametreMesure[indice].ParamHC[I]) = 'B' then
    begin
      pa := TPanel.Create(Self);
      pa.Name   := 'P' +IntToStr(i);
      pa.Parent := ScrollBox1;
      pa.Align  := alleft;
      pa.Top    := (i * 22)-20;
      pa.Height := 22;
      pa.Width  := 80;
 
      acb := TAdvComboBox.Create(Self)
      acb.Name :='PC' + IntToStr(i);
 
      acb.Parent := pa; //   <== mon probleme est ici.
      acb.top    := 0;
      acb.align  := alleft;
      acb.Width  := 40;
 
    end;
  end;
end;

[petitcoucou31]

Merci les gars.

ET oui je suis aussi d'accord pour associer des variables ..