dbgrid

认真读书 2006-12-07 04:11:54
菜鸟问个问题。
1、在dbgrid里点右键,弹出一个菜单。
2、点菜单相得到所选得记录行号
代码如何实现了?
...全文
110 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
lihuasoft 2006-12-07
  • 打赏
  • 举报
回复
楼主是个爽快人
认真读书 2006-12-07
  • 打赏
  • 举报
回复
靠,感谢。。
78hgdong 2006-12-07
  • 打赏
  • 举报
回复
思路,在加dbgrid中加个弹出PopupMenu菜单,在PopupMenu菜单上加个事件,在事件里调用另外一个窗体读取记录.
lihuasoft 2006-12-07
  • 打赏
  • 举报
回复
算了,好人做到底,用汉字写写步骤吧,省得你再问:

1、form上放一个dbgrid1,一个Popmenu1,双击Popmenu1,添加一个菜单项“报告行号”,然后双击它,在N1click方法里写上代码showmessage(inttostr(dbgrid1.DataSource.DataSet.RecNo));
2、dbgrid1的popunmenu属性,设置为Popmenu1(或在form.oncreate里写代码dbgrid1.PopupMenu:= PopupMenu1;)
3、至于dbgrid1的数据源设置,你自己搞
lihuasoft 2006-12-07
  • 打赏
  • 举报
回复
//DBGrid1: TDBGrid;
//DataSource1: TDataSource;
//Table1: TTable;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
....
procedure TForm1.N1Click(Sender: TObject);
begin
showmessage(inttostr(dbgrid1.DataSource.DataSet.RecNo));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
dbgrid1.PopupMenu:= PopupMenu1;
end;
认真读书 2006-12-07
  • 打赏
  • 举报
回复
我靠。没有强人给个例子。。。。自己狂顶。。。

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧