======================================================
注:本文源代码点此下载
======================================================
最近用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^)/