Discussion :

[mlepretre]

Bonjour,

j'utilise sous Delphi 5 un TreeView qui reprend l'arborescence suivante :

Constructeur1
- Ligne1
* Etabli1
* Etabli2
- Ligne2
* Etabli1
* Etabli2
Constructeur2
- Ligne1
* Etabli1
* Etabli2
- Ligne2
* Etabli1
* Etabli2
etc...

Lors de la sélection d'un node je renvois le texte de ce dernier dans une variable de type String de la façon suivante :

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
//clic_sur_constructeur
If TreeView.Selected.Level=0 then SelectionConstructeur := TreeView.Selected.Text;
 
//clic_sur_ligne
If TreeView.Selected.Level=1 then
    begin
       SelectionConstructeur := TreeView.Selected.Parent.Text;
       SelectionLigne := TreeView.Selected.Text;
    end;
 
//clic_sur_etabli
If TreeView.Selected.Level=2 then
    begin
       SelectionConstructeur := ?????????;
       SelectionLigne := TreeView.Selected.Parent.Text;
       SelectionEtabli := TreeView.Selected.Text;
    end;

... et comme vous l'aurez compris je bloque au môment de définir la variable SelectionConstructeur après la sélection d'un node "établi"...


Une formule du genre :

Code :

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

1
2
3
4
5
6
7
//clic_sur_etabli[/COLOR]
 TreeView.Selected.Level=2 then
     begin
        SelectionConstructeur := TreeView.Selected.Root.Text[/COLOR];
        SelectionLigne := TreeView.Selected.Parent.Text;
       SelectionEtabli := TreeView.Selected.Text;
     end;

m'aurait bien aidé, mais je n'en trouve pas d'équivalent

Pourriez-vous m'aider svp ?

Merci

[mlepretre]

Pour ceux que ça peut intéreser j'ai bidouillé un truc du genre :

Code :

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

SelectConstructeur := TreeView.Items[TreeView.Selected.Parent.AbsoluteIndex].Parent.Text;

et ça fonctionne...