delphi TDbGrid 右键 PopupMenu 菜单只在有数据的地方弹出

======================================================
注：本文源代码点此下载
======================================================

最近用delphi做开发,用到了dbgrid控件,想在控件上点击鼠标右键弹出菜单

关联dbgrid的 popupmenu 倒是可以实现,但是这样的效果是不管你在哪里单击鼠标右键

只要在dbgrid里面就会弹出菜单,我想只在数据区弹出,网上查了n多了资料,没有找到满意的

偶然间发现,当在dbgrid上单击鼠标右键的时候,当鼠标在数据区的时候不会触发 mousedown事件

这样我就想用 mouseup和mousedown 区分鼠标是不是在数据区 ,然后弹出菜单

首先定义一个全局变量:

var showpopupmenu :boolean = true; //默认情况下可以弹出菜单

然后定义mousedown事件 当鼠标在非数据区的时候会触发事件,这时候将showpopmenu设为false

procedure tform1.gridaccountmousedown(sender: tobject;button: tmousebutton; shift: tshiftstate; x, y: integer);

begin

if (button = mbright) then

begin

showpopupmenu := false;

end;

end;

当鼠标弹起的时候在mouseup事件里判断 showpopupmenu 是否为 true

代码

procedure tform1.gridaccountmouseup(sender: tobject; button: tmousebutton;shift: tshiftstate; x, y: integer);

begin

if (button = mbright) and showpopupmenuthen

begin

if (gridaccount.selectedfieldnil) then//如果有数据

begin

//弹出菜单即可

end;

end;

showpop := true;

end;

这样就可以实现在数据区的时候弹出右键菜单了

注:由于俺是新手只能用这种笨方法实现了,如果哪位仁兄有更好的方法希望能告知 thx.

======================================================
在最后，我邀请大家参加新浪APP，就是新浪免费送大家的一个空间，支持PHP+MySql，免费二级域名，免费域名绑定 这个是我邀请的地址，您通过这个链接注册即为我的好友，并获赠云豆500个，价值5元哦！短网址是http://t.cn/SXOiLh我创建的小站每天访客已经达到2000+了，每天挂广告赚50+元哦，呵呵，饭钱不愁了，\(^o^)/