如何dbgrid的popupmenu不弹出来?

Question

当dbgrid的数据集无记录或active=false时，右击dbgrid不要弹出菜单，该如何实现？
我用以下方式都不如意1 popupmenu的autopopup设置 trueif DmCode.ADOQueryPm.Active then      begin
         if DmCode.ADOQueryPm.RecordCount=0 then  
                   Self.PopupMenuNewPm.Items..enabled:=false;
         Else Self.PopupMenuNewPm.enabled:=true;
      end
   Else
      Self.PopupMenuNewPm.items.enabled:=false;
它的enabled还是为true2 popupmenu的autopopup设置 false
  采用mb_right click时弹出，但是弹出菜单位置的x,y值不好设置，
求解

Answer 1

if DmCode.ADOQueryPm.Active then      begin
         if DmCode.ADOQueryPm.RecordCount=0 then  
                   Self.PopupMenu:= nil ;
         Else Self.PopupMenu := PopMenu1;
      end
   Else
      Self.PopupMenu := nil ;