如何dbgrid的popupmenu不弹出来?

[AsonLee]

当dbgrid的数据集无记录或active=false时，右击dbgrid不要弹出菜单，该如何实现？
我用以下方式都不如意

1 popupmenu的autopopup设置 true

if 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还是为true

2 popupmenu的autopopup设置 false
采用mb_right click时弹出，但是弹出菜单位置的x,y值不好设置，
求解

[江山易改]

if DmCode.ADOQueryPm.Active then

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