怎么为树节点添加右击弹出菜单？？我吃完饭回来马上结贴！！！！

Question

我是根据数据库信息生成的树，就是不知道怎么为节点添加右击弹出菜单！谢谢！！！

Answer 1

1、放一个popumenu组件到窗体内；设置treeview1的popumenu为popumenu1；1. 设置treeview的属性RightClickSelect为True2、在treeview的click事件中写入代码：
  
var TN: Ttreenode;
begin
  TN := treeview1.selected;
  if TN <> nil then
    begin
           // 
    end;
end;

Answer 2

popupmenu.autopop=falseprocedure TForm1.TreeView1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin  if (Button = mbRight) and (treeview1.Selected <> nil) then
    PopupMenu1.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
end;