[重要]关于DATAGRID分组后分组字段弹出菜单问题

xtascf

问一下，在DATAGRID中设置了分组，比如按项目名称分组，我想鼠标右击分组字段时显示出一个弹出菜单，点分组里面的内容时又会弹出一个右键菜单，怎么实现？

shangxy

procedure TSJWG1.DataGridChangeNode(Sender: TObject; OldNode, Node: TTreeListNode);
begin
  if Node.HasChildren then
    TDataGrid(Sender).PopupMenu :=PopupMenu1
  else
    TDataGrid(Sender).PopupMenu :=PopupMenu2;  //;
end;