Discussion :

[yanba]

Comment recuperer la valeur d'un item dans un treeview ?

Que dois-je modifier dans ce code ?

Code :

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

1
2
3
4
procedure TForm2.TreeView1Click(Sender: TObject);
var n:integer;
begin
     TreeView1.Selected.index; // noeud principal

Mais pour le noeud secondaire ?

[Modération]Merci d'utiliser les balises [code], NoisetteProd[/Modération]

[Noel Sybille]

Bonsoir,

Par exemple, avec sa valeur d'index absolue...
Mais, perso, je préfère utiliser OnMouseDown plutôt que OnClick pour être sûre qu'on a cliqué sur un item et pas ailleurs dans le décor du Treeview :

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 TMain.TVMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
{------------------------------------------------------------------------------}
var
   iHit: THitTests;
begin
   //permet d'être sur que l'on a clické un item
   iHit := TV.GetHitTestInfoAt(x,y);
   if htOnItem in iHit then
      case TV.Selected.AbsoluteIndex of
          0 : ....
          1 : ....
      end;
end;

[yanba]

Merci pour AbsoluteIndex. J'avais poutant regardé AbsoluteIndex mais je n'avais pas saisi le sens.