是这个问题 啊 var p:Tpoint; begin getcursorpos(p); PopupMenu1.Popup(p.x,p.y); end;
问题已得到解决,谢谢各位热心,一会后结贴。 我晕,这么简单啊,不好意思,现宝了!!if ACol=15 then Book.PopupMenu:=Nil else Book.PopupMenu:=BookMenu;
事实上,对你还要做什么还是不知道,不过先给你的答案,等你想好了在说,在FORM上你可以在进行判断,看当前点是否在你禁止弹出菜单的位置,如果是退出大概可以这样写var p:Tpoint; begin getcursorpos(p); if PtInRect(rect,p)then exit; PopupMenu1.Popup(p.x,p.y); end;
呵呵,就是:
TPopupMenu啊,点右键时不弹出来,但在某个位置我又想让它弹出来
var p:Tpoint;
begin
getcursorpos(p);
PopupMenu1.Popup(p.x,p.y);
end;
我晕,这么简单啊,不好意思,现宝了!!if ACol=15 then
Book.PopupMenu:=Nil
else
Book.PopupMenu:=BookMenu;
begin
getcursorpos(p);
if PtInRect(rect,p)then exit;
PopupMenu1.Popup(p.x,p.y);
end;