如何判断鼠标右键按下时,是点击了DBGrid中的标题栏还是数据行,请各位大哥帮帮忙!谢谢!

[cherrylin]

实现的功能是:当鼠标右键按在DBGrid的标题栏时弹出一个菜单,当按在数据行时又弹出另一菜单,这个要如何实现?请帮帮忙!

[hhzqf1980]

ONTitleClick

[insert2003]

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
showmessage('你按了标题栏') ;
DBGrid1.PopupMenu := PopupMenu1;
end;

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
showmessage('单元格');
DBGrid1.PopupMenu := PopupMenu2;
end;

[web700]

楼上的正解

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
showmessage('你按了标题栏') ;
DBGrid1.PopupMenu := PopupMenu1;
end;

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
showmessage('单元格');
DBGrid1.PopupMenu := PopupMenu2;
end;

[cherrylin]

楼上两位的做法,没有实现我要的功能.
我要的是:直接右键点击标题弹出一个菜单或点击数据行又弹出一个菜单!
哪位大哥帮帮我!

[swsg]

你把楼上两位的SHOWMESSAGE（）换成你要弹出的菜单项不就可以了么？？

[hahafan]

可以使用DBGrid的MouseCoord(X, Y: Integer)函数
再配合DBGrid的OnMouseDown事件来实现这个功能。

[cherrylin]

按楼上这样做,当鼠标右键点击有记录的行数时根本无法获得鼠标的位置,我用EDIT查看过,横纵向根本没有值,无法弹出菜单来

[cherrylin]

up

[野草飞雪]

MouseMove

[zhuangjunx]

你把楼上两位的SHOWMESSAGE（）换成你要弹出的菜单项不就可以了么？？