delphi TDbGrid 右键 P 4000 opupMenu 菜单只在有数据的地方弹出
2020-02-17 04:12
525 查看
最近用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.SelectedField <> nil) then //如果有数据
begin
//弹出菜单即可
end;
end;
showpop := True;
end;
这样就可以实现在数据区的时候弹出右键菜单了
注:由于俺是新手只能用这种笨方法实现了,如果哪位仁兄有更好的方法希望能告知 thx.
转载于:https://www.cnblogs.com/heimirror/archive/2010/10/19/1855841.html
- 点赞
- 收藏
- 分享
- 文章举报
相关文章推荐
- (转载)delphi文件流
- (转载)delphi实例TDBGrid用右键菜单复制行粘贴行
- (转载)delphi 把图片存入数据库
- (转载)Delphi StringGrid常用属性和常用操作
- (转载)EhLib 在 Delphi 7 下的安装方法
- (转载)Delphi TStringList的用法
- Microsoft Agent技术在Delphi中的应用
- delphi 7.0生成的AgentObjects_TLB.pas出错导至Ms Agent不能发声
- Delphi XLgrid 动态创建下拉框列
- Delphi XE10.3.1 使用心得-2019-12-08
- Delphi10 Android程序 对话框(dialogmessage, showmessage)等的汉化
- TCP中间件_Delphi_client
- DELPHI编模拟鼠标,键盘操作,比键盘鼠标录制软件更强
- glassfish 部署 Delphi for PHP 程序 use_unit 的问题
- delphi安装 Tclientsocket, Tserversocket控件
- Delphi调用分布存储过程
- Delphi7对XML的支持分析
- delphi学习中.
- Delphi之Windows编程
- delphi Memo 的当前行、当前列与当前字符