Discussion :

[Cazaux-Moutou-Philippe]

Bonjour

j'utilise un tcxTreeView, je le rempli, a la fin je fais ca
tvSaVie.FullExpand;

le curseur est bien positionné sur le 1er élément

mais si il y a beaucoup d'éléments dedans, on ne voit plus le début, je suis obligé de remonter l'ascenseur

Comment faire pour être sur le 1er élément et que l'ascenseur soit en haut ?

merci

[Cl@udius]

Salut

Quelque chose comme ça ?

Code :

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

1
2
3
4
5
6
 
  with cxTreeView1 do
  begin
    FullExpand;
    Items.GetFirstNode.MakeVisible;
  end;

@+ Claudius

[Cazaux-Moutou-Philippe]

Merci

ca je le fait deja, ca positionne bien le curseur sur le 1er, mais l'ascenseur est touours en bas et je dois le remonter pour voir le début

en fait ce que je voudrais, c est mettre l'ascenseur en position haute

[ero-sennin]

Salut,

Si tu veux mettre la ScrollBar du TreeView tout en haut, tu peux utiliser ceci :

Code :

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

SendMessage(TreeView1.Handle,WM_VSCROLL,SB_TOP,0);

En espérant que ça réponde à ta question.
A+

[Cazaux-Moutou-Philippe]

Merci

j'ai mis ton code, mais ca ne change rien du tout

[ero-sennin]

Re,

J'ai testé celà et ça fonctionne :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.Button1Click(Sender: TObject);
begin
  with TreeView1 do
  begin
    FullExpand;
    Items.GetFirstNode.MakeVisible;
  end;
  SendMessage(TreeView1.Handle,WM_VSCROLL,SB_TOP,0);
end;

A+

[Cazaux-Moutou-Philippe]

Merci

ca marche, javais oublié le .MakeVisible

++