delphi 自定义cxGrid的导航面板

效果图

 

 面板设置:

1.把导航面板显示出来: Navigator.visible:=true

 

2.在Navigator-Buttons下设置自己需要显示或者隐藏的按钮

 

 3.添加自定义按钮

 

 双击CustomButtons,弹出新增按钮的窗体,在这里完成新增与属性设置.注意,这里是设置不了事件的,不要着急,下面会细讲.

 

 

 设置好以后,就会得到本文最先展示的效果图了.

接下来就是设置事件了.自定义按钮的事件设置是在视图中的Navigator -Buttons -OnButtonClick中设置.

 

 

 

procedure TForm1.cxGrid1DBTableView1NavigatorButtonsButtonClick(Sender: TObject;AButtonIndex: Integer; var ADone: Boolean);
begin
  case AButtonIndex of   //AButtonIndex: 不管是自带的还是自定义的按钮,每个按钮都有自己的索引值
    8:     //自带按钮,有默认事件
      begin
        ADone := True;  //禁止执行默认事件,相当于重写事件
      //你的业务代码,这里建议函数调用,而不是直接在这里写代码
      end;
    18:  //自定义按钮,没有默认事件
      begin
       //你的业务代码,这里建议函数调用,而不是直接在这里写代码
      end;
  end;
end;

下面这张图是我从网上截下来的,没有经过验证,如果不确定,可以show一下AButtonIndex ,但记得加上ADone := True,防止事件发生