CxGrid 的加强右键菜单实现方法

本文详细阐述了解决DBGridEh标题栏上按右键弹出菜单并针对点击列进行专有处理的问题。通过深入分析不同事件处理方法的优劣,最终采用特定技巧成功实现在DBGridEh中,当在标题栏点击右键时,能够弹出针对该列的专属菜单,如进行排序操作。文中还分享了关键代码实现步骤,并提供了一个简化版的代码示例,帮助读者快速理解并应用解决方案。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

目标:
希望在DBGridEh的标题栏上按右键弹出菜单,并且弹出的菜单,能针对刚刚按右键那列进行专有处理.
比如说,对某列进行排序,只要在此列上按右键,点排序即可对此列进行排序.

分析问题点:
1.必须判断是在标题栏上点击
2.必须判断是点击的右键,因为左键还有其他功能,所以必须分开

[第一次写这样的文章,也没有经过检查,如果不妥,请见谅了]

尝试方法一:在onTitleClick事件中处理
结果:不成功
原因:虽然OnTitleClick事件中有Column参数,但是这个函数中不能区分左右鼠标事件

尝试方法二:OnMouseDown或OnMouseUp事件+OnTitleClick
结果:不成功
本想在窗口中先定议一个全局变量LastMouseButton:TMouseButton
然后在OnMouseDown事件中把LastMouseButton:=Button;
然后在OntitleClick事件中再判断LastMouseButton事件的值
但奇怪的是,dbgrideh的onmousedown事件中,根本就不会有button=mbRight的时候不管你按的是左键还是右键,button都是mbLeft
这个不知道是不是dbgrideh的bug,反而dbgrid是可以的

尝试方法三:用Columneh.popmenu属性来实现,判断其PopupComponent即可
结果:不成功
原因:本来以为找到了门路,但偏偏这个popupcomponent这时却是dbgrideh,
而不是我要的column,所以暂是还是失败
有人要问,不可以每个column给一个不同的popmenu不就中以了,我现在要做一是一个通用的方法,让每个界面的功能都要一样处理,再来

尝试方法四:还是用columneh.popmenu属性
结果:成功
描述:在查popupcomponent为什么是dbgrideh,而不是columneh时,不经发现了一些代码
procedure TCustomDBGridEh.DefaultHandler(var Message);
var
  P: TPopupMenu;
  Cell: TGridCoord;
  WinMessage: TMessage;
begin
  inherited DefaultHandler(Message);
  WinMessage := UnwrapMessageEh(Message);
  if TMessage(WinMessage).Msg = wm_RButtonUp then
{$IFDEF CIL}
    with TWMRButtonUp.Create(WinMessage) do
{$ELSE}
    with TWMRButtonUp(Message) do
{$ENDIF}
    begin
      Cell := MouseCoord(XPos, YPos);
      if (Cell.X < FIndicatorOffset) or (Cell.Y < 0) then Exit;
      P := Columns[RawToDataColumn(Cell.X)].PopupMenu;//这句很重要,这个函数很NB
      if (P <> nil) and P.AutoPopup then
      begin
        SendCancelMode(nil);
        P.PopupComponent := Self;
        with ClientToScreen(SmallPointToPoint(Pos)) do
          P.Popup(X, Y);
        Result := 1;
      end;
    end;
end;

看到没有,原来它本身就也是通过鼠标位置来判断当前的columneh的,并且触发它的popupmenu
那我们跟它一样的做法不就得了,有了思路,那就好办了!
关键函数RawToDataColumn是protected的,没办法直接访问,那好办,用我们的绝招HackClass哈

下面是实现的代码
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, GridsEh, DBGridEh, ExtCtrls, DBCtrls,Ehlibado,  StdCtrls, Menus;

type
THackGrid= class (TCustomDBGridEh);
  TForm1 = class(TForm)
    DBNavigator1: TDBNavigator;
    DBGridEh1: TDBGridEh;
    DataSource1: TDataSource;
    ADODataSet1: TADODataSet;
    Button1: TButton;
    Label1: TLabel;
    PopupMenu1: TPopupMenu;
    PopupMenu2: TPopupMenu;
    M11: TMenuItem;
    M21: TMenuItem;
    PopupMenu3: TPopupMenu;
    M31: TMenuItem;
    procedure PopupMenu1Popup(Sender: TObject);
  private
    { Private declarations }
    lastmousebutton:TMouseButton;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.PopupMenu1Popup(Sender: TObject);
var Cell: TGridCoord;
point:TPoint;
i:integer;
begin
point:=mouse.CursorPos;
Point:=DBGridEh1.ScreenToClient(point);
cell:=DBGridEh1.MouseCoord(point.X,point.Y);
 i:=THackGrid(DBGridEh1).RawToDataColumn(cell.X);
//至此,I已经取得了dbgrideh1中的columneh的序号
//想要FIELD就,dbgrideh1.columneh[i].field 随你了
end;

end.

从开始动手找资料,到一步一步实验,到找到答案,我这笨蛋搞了三个小时,
并且一度失去信心,以为搞不出来,
但回过头来再看看答案,原来真是它妈的简单,原兄弟们都不要再走我的弯路喽
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值