Discussion :

[Speed41]

Bonjour,

Je voudrais vérifier tous les composant d'un TForm. Facile me direz vous ben oui depuis une unité de mon programme mais là c'est plus compliqué pour moi. J'ai créé un objet qui doit compter tous les objets du TForm le supportant et ben je n'y arrive pas.

Code :

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

for i:=0 to componentcount-1 do

ne prends pas tous les composants du Form

Même avec

Code :

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

for i:=0 to parent.componentcount-1 do

Voir éventuellement compter uniquement les objets de son parent.

Quand je fais appel à components[i] (i=0 ou i=1) j'ai toujours une erreur d'index hors limite alors que componentcount=5 mais j'ai 9 objets alors Grrrrr et


Merci de votre aide

[Gilbert Geyer]

Salut,

J'ai créé un objet qui doit compter tous les objets du TForm le supportant

Avant de faire for i:=0 to componentcount-1 do ...
T'as peut-être oublié de faire un with MaFormLeSupportant do begin
... sinon faudrait montrer le code de l'objet que tu as créé.

A+.

[retwas]

Comme l'indique Gilbert, un with ou

Code :

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

for i := 0 to TMaForm.ComponentCount- 1

[Speed41]

Heu comment dire, c'est un objet donc je ne connais pas le nom du TForm qui contient mon objet qui celui ci peut être dans un TPanel un Tscrollbox voir les deux et même d'autres objets. Je ne sais pas tout cela par avance car ce n'est pas une unité de mon programme mais un objet à part entière.

Sauf si c'est moi qui ne comprends pas mais ça ne fonctionne pas

Merci de votre aide

[Speed41]

oups voici le code

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 Tligne.Calcul_ligne;
Var table : array of integer;
    i, n, x1,x2, xx1, xx2, nb : integer;
begin
  table:=nil;
  n:=0;
  for i:=0 to componentcount-1 do
      if (parent.components[i] is tLigne) and
         ((parent.components[i] as Tligne).parent = parent) then
         begin
           table[n]:=i;
           inc(n);
         end;
  nb:=1;
  if n>0 then
     begin

[tourlourou]

Il faut peut-être récupérer les parents depuis ton objet, en remontant dans la hiérarchie, jusqu'à arriver à une fiche, et de là, repartir en sens inverse :

Code :

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

1
2
3
pere:=self;
while not(Parent is TForm)
do pere:=self.Parent;

[Andnotor]

Code :

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

1
2
3
4
5
for i := 0 to Parent.ControlCount -1 do
  if (Parent.Controls[i] is tLigne) then
  begin
    ...
  end;

[Speed41]

Heu désolé tourlourou mais ça tourne en rond et ça n'aboutit à rien

Code :

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

1
2
3
pere:=self;
while not(Parent is TForm) do
        pere:=self.Parent;

Tu déclare comment Pere ?

[Speed41]

Je viens de tester ça

Code :

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

1
2
3
4
5
6
7
8
9
10
Var table : array of integer;
    i, n, x1,x2, xx1, xx2, nb : integer;
    pere : TControl;
begin
  table:=nil;
  pere:=self.parent;
  showmessage(pere.name);
  n:=0;
  for i:=0 to pere.componentcount-1 do
      ...

Il s'affiche bien le nom du parent de mon objet mais il ne compte aucun composant avec pere.componentcount. Pourquoi, à votre avis ?

[Andnotor]

Components est la liste des composants dont l'objet est propriétaire, visuels ou non (leurs Owner = Self).
Controls est la liste des contrôles visuels enfants (leurs Parent = Self).

Tu mélanges les deux

[Speed41]

Oui je confond les deux

Alors dans mon exemple pourquoi quand j'écris

Code :

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

1
2
3
4
5
6
7
8
9
Var table : array of integer;
    i, n, x1,x2, xx1, xx2, nb : integer;
    pere : TControl;
begin
  table:=nil;
  pere:=self.parent;
  showmessage(pere.name);
  n:=0;
  for i:=0 to pere.ControlCount-1 do

j'ai 'erreur "[Erreur] Chrono_Periode.pas(336): Identificateur non déclaré : 'ControlCount'" sur la dernière ligne ?


Je suis un tout petit peu complètement perdu

[Speed41]

En déclarant pere comme TWincontrol, ça marche

Code :

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

1
2
3
4
5
6
7
8
Var table : array [0..255] of integer;
    i, n, x1,x2, xx1, xx2, nb : integer;
    pere : TWinControl;
begin
  pere:=self.parent;
  showmessage(pere.name);
  n:=0;
  for i:=0 to pere.ControlCount-2 do

pfff pas facile tout ça.

Ai-je juste ?

[Speed41]

Pour éviter la déclaration et une variable

Voici le code final

Code :

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

1
2
3
4
5
6
7
Var table : array of integer;
    i, n, x1,x2, xx1, xx2, nb : integer;
begin
  n:=0;
  for i:=0 to (self.parent).ControlCount-1 do
      if (parent.controls[i] is tligne) then
         begin

Ca marche, c'est déjà ça.

Grand merci pour votre aide (je vais mieux regarder TControl et Tcomponent)

[Gilbert Geyer]

Bonjour,

J'ai pas compris pourquoi il faut passer par le parent, car en faisant comme suit j'ai un accès direct aux composants tEdit placés sur ma Tform nommée frmEquas6 (frmEquas6 est le nom de la var du type tForm en non le nom du type) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure LibererChampsResultats;
var       i : integer;
begin     with frmEquas6 do
          begin i:=0;
                repeat if (components[i] is tEdit)
                       and ((components[i] as tEdit).tag=4) then
                       begin (components[i] as tEdit).free;
                             ChampsResultatsExistent:=False;
                             .... 
                       end else inc(i);  
                until i>=ComponentCount;
          end;
end;

A+.

[Gilbert Geyer]

Re-bonjour,

A propos de

Speed41 : Heu comment dire, c'est un objet donc je ne connais pas le nom du TForm ...

A l'instant où tu fais appel à ton objet il suffit de lui passer en paramètre le nom de la var qui désigne le tForm qui contient les components cibles.

A+.

[Speed41]

Ca marchait (un truc un peu pareil) mais depuis mon unité dans mon programme mais quand j'ai créé un objet ça fonctionnait plus. Il comptait les objets dans mon objet et ce n'est pas ce que je voulais. Voilà pourquoi je passe par son parent

[guillemouze]

Re-bonjour,

A propos de
A l'instant où tu fais appel à ton objet il suffit de lui passer en paramètre le nom de la var qui désigne le tForm qui contient les components cibles.

A+.

... mais tu y perd en flexibilité. L'interet de faire ce qu'il a fait, c'est que peu importe ou tu place ton composant,tu peux lister tes copains qui ont le même parent, que ce soit une form, un panel, ...

Le plus clair serait peut être de faire une fonction spécifique pour ca :

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
function Tligne.GetVoisins: TComponentList;
begin
  Result := TComponentList.Create(False);
  for i := 0 to parent.ControlCount-1 do
      if (parent.Controls[i] is tLigne) then
        Result.Add(parent.Controls[i]);
end;
 
//et ta fonction
procedure Tligne.Calcul_ligne;
Var voisins: TComponentList; 
    i, n, x1,x2, xx1, xx2, nb : integer;
begin
  voisins := Self.GetVoisins;
 
  nb:=1;
  if voisins.Count>0 then
     begin
       //et utiliser TLigne(Voisins[i]).XXX
...
  voisins.Free;