treeview如何实现快捷菜单

[tomjoule]

我对treeview的用法知道的较少，想实现当用鼠标右击不同节点时弹出不同的快捷菜单.
多谢啦!

[9igogo]

放一个popupmenu控件
设制treeview的popupmenu为加入的即可

[wyxy520]

1. 在TREEVIEW的MOUSEDOWN事件里,得到当前鼠标点击的位置(x,y)
2. 用treeview的GetNodeAt(x,y)得到点中的NODE
3. 根据NODE.text判断是点的哪个NODE
4. 在鼠标位置弹出popupmenu

[dupenf]

节点不同,菜单项目不同??
可以根据节点的handle,动态转换treeview的popmenu属性.

[stanely22]

1. 在TREEVIEW的MOUSEDOWN事件里,得到当前鼠标点击的位置(x,y)
2. 用treeview的GetNodeAt(x,y)得到点中的NODE
3. 根据NODE.text判断是点的哪个NODE
4. 在鼠标位置弹出popupmenu
我再加一条！
5.判断是哪一个结点之后，在mouseup事件中，判断是否是右键按下，如果是，就做：treeview1.PopupMenu.AutoPopup:=true;
你可以根据情况改写这条语句。给PopupMenu起特定的名字，在你需要时，将他改为true。

[whitehare]

...
type
TForm1 = class(TForm)
ListView1: TListView;
ImageList1: TImageList;
PopupMenu1: TPopupMenu;
mnu1: TMenuItem;
mnu2: TMenuItem;
mnu3: TMenuItem;
mnu4: TMenuItem;
procedure ListView1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);


.
.
.

procedure TForm1.ListView1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if listView1.Selected=nil then
mnu1.Enabled:=False
else
mnu1.Enabled:=True;
end;

当然你也可以做其他的判断，很简单吗？