Récuperer la valeur d'un item dans un Treeview

Version imprimable

02/02/2006, 20h54
yanba

Récuperer la valeur d'un item dans un Treeview
Comment recuperer la valeur d'un item dans un treeview ?

Que dois-je modifier dans ce code ?
Code:

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]

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:

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;

02/02/2006, 21h45
yanba

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