Discussion :

[freud]

Bonjour,

Je fais un parcours des Forms pour récupérer certains infos de certains composants ainsi :

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
 
var
i,j,k:integer;
 
begin
 for j := 0 to Application.ComponentCount -1  do
  If Application.Components[j] is TForm Then
    With Application.Components[j] as TForm do
    Begin
     For i := 0 to ControlCount-1 do
     begin
      if Controls[i] is Tlabel Then
      begin
      listbox1.Items.Add((Controls[i] as Tlabel).Caption);
     end;
 
     if  Controls[i] is TDBgrid Then
      begin
      LoopThroughDbgrid(components[i] as TDBgrid);
      end;
    end;
    end;
end;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Procedure LoopThroughDbgrid(aGrid : TDBgrid) ;
var
  j : integer;
begin
  for j := 0 to aGrid.Columns.Count-1 do
      begin
      ListBox1.Items.Add(aGrid.Columns[i].Title.Caption);
    end;
 
end;

La difficulté est que je n'arrive pas à lire les title column de la dbgrid.
Lorsque la fonction LoopThroughDbgrid est appelé dans le code le aGrid.Columns.Count est à zéro. Je ne sais pas si il manque quelque chose.
Merci de votre aide.

[Ph. B.]

Bonjour,
Je vois une erreur dans le code : un composant n'est pas forcément un contrôle. Un contrôle est un composant visible et hérite de ce dernier. Ce code ne fonctionnera que tant que les composants seront tous des contrôles et qu'il seront référencés dans le même ordre...

Code :

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

1
2
3
4
5
6
7
if  Controls[i] is TDBgrid then
begin
  // Incorrect !
  // LoopThroughDbgrid(components[i] as TDBgrid);
  // Correct
  LoopThroughDbgrid(Controls[i] as TDBgrid);
end;

Ensuite, par souci d'optimisation, on peut améliorer le code en transtypant directement après avoir fait un test "is", plutôt que passer par "as".

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
for i := 0 to ControlCount - 1 do
begin
  if Controls[i] is Tlabel then
  begin
    Listbox1.Items.Add(Tlabel(Controls[i]).Caption);
  end;
 
  if  Controls[i] is TDBgrid then
  begin
    LoopThroughDbgrid(TDBgrid(Controls[i]));
  end;

--
Philippe.

[freud]

Super !
Merci Philippe

[freud]

Excusez-moi d'y revenir malgré que le post est résolu.
Je n'arrive pas à récupéré le nom de la forme en rajoutant le test suivant :

Code :

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

1
2
3
4
5
 
  if (Application.Components[i] is TForm) Then
      begin
      listbox1.Items.Add((Application.Components[j] as TForm).Name);
      end;

Je veux dire dans un 1er temps il l' a récupère puis après c'est un List Index Out Bound

Merci de votre aide.

[Ph. B.]

Je crois que vous êtes un éternel étourdi !

Code :

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

1
2
3
4
5
6
  if (Application.Components[i] is TForm) Then
    begin
      // Attention à l'index
      // listbox1.Items.Add((Application.Components[j] as TForm).Name);
      listbox1.Items.Add((Application.Components[i] as TForm).Name);
    end;

--
Philippe.

[freud]

nom de ..... il faut que je m'arrête un peu
On ne peux pas faire plusieurs choses à la fois.
effectivement et c'est bien dit, je suis étourdi.
Je vais me procurer une 3eme paire de lunette
Merci encore Philippe et désolé pour ça.