[TreeView] ItemAtPos et Root

Version imprimable

30/05/2005, 16h28
jmdeffet

[TreeView] ItemAtPos et Root

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 :P
30/05/2005, 16h41
Pedro

Salut
1-Item.Level (Si il est égal à 0 alors il n'y a pas de Parent :arrow: Item.Parent=nil)
2-TreeView.Click en testant si Selected=nil :arrow: Aucun noeud sélectionné...
Bon dev'
31/05/2005, 08h29
jmdeffet
Merci mais:

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

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+

Youpi! :)

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

Donc :

Code:

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:

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]