Discussion :

[blinkseb]

Bonjour à tous,

Voilà, j'ai dans un fichier XML une référence à un composant de mon application, suivant son nom.
Le problème, c'est que ce composant peut se trouver sur n'importe quelle feuille. Bien sûr, tous les composants de l'application sont nommé de manière unique, afin qu'une référence ne compte que pour un composant, et pas plusieurs.

Comment faire pour parser tous les composant d'une application (j'ai réussi pour une feuille, avec FindControl). Il faudrait aussi réussir à détecter les contrôle qui sont des enfants d'autre controle (style TPanel).

Merci d'avance

Seb

[Pierre Castelain]

Pourquoi est-ce que tu ne stocke pas la hiérarchie complète ? Comme ça, plus de problème pour le repérage.
A partir d'un contrôle, tu peux remonter la hiérarchie en utilisant la propriété Parent. Quelque chose dans ce genre :

Code :

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

1
2
3
4
5
6
7
 
function GetFullControlName(AControl: TControl): string;
begin
  if AControl.Parent = nil then
    result:= AControl.Name
  else result:= GetFullControlName(AControl.Parent) + '\' + AControl.Name;
end;

[blinkseb]

En fait, dans mon fichier XML, je stocke des positions, par exemple :

Code :

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

1
2
 
<composant_1 left="composant_0.left+5" />

J'utilise une expression régulière pour extraire le nom du composant, sa propriété, l'opération à effectuer (+ / -) et le nombre à ajouter/soustraire

Ces fichiers peuvent être changé par l'utilisateur, qui n'est pas sencé connaitre la hierarichie des contrôles...

[Pierre Castelain]

Ces fichiers peuvent être changé par l'utilisateur, qui n'est pas sencé connaitre la hierarichie des contrôles...

Oui, mais il doit quand même connaître le nom des composants...
Enfin, c'est comme tu veux.
Tu peux boucler aussi simplement pour rechercher un composant :

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
 
function FindApplicationComponent(ComponentName: string; Owner: TComponent): TComponent;
var
  i: Integer;
begin
  if Owner.Name = ComponentName then
    result:= Owner
  else
  begin
    for i:= 0 to Owner.ComponentCount - 1 do
    begin
      result:= FindApplicationComponent(ComponentName, Owner.Components[i]);
      if result <> nil then
        exit;
    end;
    result:= nil;
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  comp: TComponent;
begin
  comp:= FindApplicationComponent('Button2', Application);
  if comp <> nil then
    Label1.Caption:= comp.Name;
end;

[blinkseb]

Je crois en fait que je vais fournir l'arborescence complete avec :
nom_de_feuille.nom_de_composant.propriete.

Merci !