Problème Treeview & KeyDown

Version imprimable

20/05/2006, 08h49
gla06

Problème Treeview & KeyDown
Bonjour à tous.

Je rencontre un problème avec le composant treeview.
Je cherche à connaitre l'index du node sélectionné ainsi que l'index du parent.
Pour ça pas de problème lorsqu'il s'agit d'un OnClick.
En revanche, pour intercepter l'action des touches (ex haut/bas...) j'ai placé le code suivant dans le l'évenement OnKeyDown
Code:

1 2 3 Memo.Lines.Add('keydown !'); Memo.Lines.Add('Node Idx : '+IntToStr(TreeView.Selected.AbsoluteIndex)); Memo.Lines.Add('Parent Idx : '+IntToStr(TreeView.Selected.Parent.AbsoluteIndex));
Le problème est que j'obtiens les valeurs d'index AVANT le mouvement et pas celle de la nouvelle selection.

Si quelqu'un a une idée...

tu ajoute ton code dans l'evenement OnChange :

Code:

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
  if TreeView1.Selected.Parent <> nil then //s'assurer que le parent existe
  begin
    Showmessage(inttostr(TreeView1.Selected.AbsoluteIndex));
    Showmessage(inttostr(TreeView1.Selected.Parent.AbsoluteIndex))
  end
  else
    Showmessage(inttostr(TreeView1.Selected.AbsoluteIndex))
end;

20/05/2006, 12h32
gla06

Bon, en fait c'est tout simple, et je pense me reconvertir en Quiche ! :oops:
En fait, au lieu d'utiliser KeyDown qui intercepte la touche avant de descendre dans le treeview (et donc de changer l'index) il vaut mieux utiliser keyUp !!

Voilà ce que c'est de bosser sans arrêt sans prendre du recul !