Discussion :

[CharleLéo]

Bonjour

Y a t'il un moyen d'afficher un menu contextuel juste à coté d'un item sélectionné dans unt treeview ?

merci

a+

[CharleLéo]

Re

J'ai trouvé, voici le code

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
17
18
19
20
21
22
23
 
procedure TForm1.TreeView2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  var
  	AnItem: TTreeNode;
  	coordsecran:tpoint;
  	rectangle:Trect;
 
 
 
begin
 
	if (Button=mbright) and not (Treeview2.readOnly)  then
   begin
     if TreeView2.Selected = nil then Exit;
     ItemSelectedX:=X;
     ItemSelectedY:=Y;
     AnItem := TreeView2.GetNodeAt(X, Y);
     rectangle:=AnItem.DisplayRect(true);
     coordsecran:=clienttoscreen(point(rectangle.BottomRight.x+treeview2.left,rectangle.BottomRight.y+treeview2.top));
     popupmenu1.Popup(coordsecran.x,coordsecran.y);
  end;
end;

A+