求教: 在TDBGrid上,如何捕捉鼠标的左键和右键事件?

zllzmcDCR 2004-08-16 10:47:11

我想在TDBGrid上区分鼠标的左右键事件,并且有不同的响应,该怎么作呢??

...全文

150 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

kaguo 2004-08-17

打赏
举报

在TDBGrid的网格区域，比如点击鼠标左键的时候，需要选中DBGrid的一行，
dgRowSelect设置True
如果是点击右键的话，选中的是一列，并且有右键菜单弹出。

dbgrid1.PopupMenu 直接设置上不就得了

zllzmcDCR 2004-08-17

打赏
举报

在TDBGrid的网格区域，比如点击鼠标左键的时候，需要选中DBGrid的一行，如果是点击右键的话，选中的是一列，并且有右键菜单弹出。

xixuemao 2004-08-17

打赏
举报

好像没问清楚，在哪里相应鼠标的事件啊？

cg2003 2004-08-17

打赏
举报

kaguo 2004-08-17

打赏
举报

sorry 选中的是一列这个我真没看到
DBGrid似乎没有选中一整列的形式...

zllzmcDCR 2004-08-17

打赏
举报

注意：我说的是“如果是点击右键的话，选中的是一列，并且有右键菜单弹出。
”，楼上所述，只能选中一个“Cell”，而且如果把“dgRowSelect设置True”，每次不论点击哪一个column ,所返回的“selectedField”都是columns中的第一个Field，达不到程序的要求。

linzhengqun 2004-08-16

打赏
举报

这上事件，不过是对整个DBGrid的
procedure TForm1.DBGrid1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button=mbLeft then
showmessage('左键')
else if Button=mbRight then
showmessage('右键');
end;

Grid: TDBGrid; begin DBForm := TForm.Create(nil); DBForm.SetBounds(100, 100, 400, 400); Table := TTable.Create(DBForm); Table.DatabaseName := 'DBDEMOS'; Table.TableName := 'customer.db'; ...

Delphi演示TDBGrid组件的斑马线提示功能..rar

TDBGrid 7.0注册机，已经测试OK

在原来TDBGrid的基础上增加了鼠标滚轮的支持: unit DBGrid3D; interface uses Windows, Messages, SysUtils, Classes, Controls, Grids, DBGrids; type TDBGrid3D = class(TDBGrid) private { Private ...

我自己做的支持滚轮的TDBGrid ，还带排序功能