Bonjour,

Est ce qu'il existe une procedure analogue à MouseToCell pour un TreeView ? Procedure qui renverrait l'index et le level de l'item sous la souris.

Pour un StrinGrid j'avais cette procédure qui fonctionne bien, mais je veux remplacer le StringGrid par un TreeView :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TF_Princ.Grille2DblClick(Sender: TObject);
Var
  Position : TPoint ;
  Col1, Row1: Integer;
  j :Integer ;
begin
  Position:=Mouse.CursorPos;
  Position:=Grille2.ScreenToClient(Position);
  Grille2.MouseToCell(Position.X,Position.Y,Col1,Row1);
  If Row1 <=0 Then Exit    ;                                // Clic en dehors de la grille
  NumCateg := Row1 ;                                        // Stockage de la ligne
 
// Suite de code ...
 
end;
{ ===================================================================== }
L'objectif est de gérer le double clic quand la souris est sur un item et pas en dehors.

Peut être avec ptInRect ? mais je ne sais pas comment.

A+
Charly