Discussion :

[jmdeffet]

Bonjour!

Deux problèmes :

1 - Comment faire pour que le premier élement du treeview ne soit pas précédé par une ligne comme dans l'exploreur pour le bureau.

2 - Comment savoir si l'utilisateur à cliquer dans le treeview mais pas sur un élement comme avec la fonction de ItemAtPos de la liste box

A demain 8h00

Merci

[Pedro]

Salut
1-Item.Level (Si il est égal à 0 alors il n'y a pas de Parent Item.Parent=nil)
2-TreeView.Click en testant si Selected=nil Aucun noeud sélectionné...
Bon dev'

[jmdeffet]

Merci mais:

1 - ce n'est pas un problème de niveau mais d'affichage mais j'ai trouvé:

Code :

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

1
2
 
   tv_main.ShowRoot:=False;

fait disparaitre la barre

2 -
a) si aucun élément n'est sélectionné, le fait de cliquer en dehors d'un item du treeview sélectionne automatiquement la racine et renvoie cet élément.
b) si un élément était sélectionné, le fait de cliquer en dehors d'un item du treeview renvoie cet élement

Je cherche pour ce problème

A+

[jmdeffet]

Youpi!

Pour le point 2, la fonction getNodeAt(X,Y)

Donc :

Code :

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

1
2
3
4
5
6
 
procedure TFormMain.tv_MainMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if tv_main.GetNodeAt(x,y)=nil then tv_Main.Selected:=nil;
end;

et ensuite :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TFormMain.tv_MainClick(Sender: TObject);
var s:string;
    c:TTreeNode;
begin
  with tv_Main do
    begin
      c:= Selected;
      [b]if c=nil then exit;[/b]
 
     .....
    end;
end;

La fonction était là mais je n'ai pas bien lu l'aide[/b]