关于自定义 DBGridEh 的 IndicatorTitle 表头下拉菜单项的方法

因为DBGridEh的字段有不想被显示的，而定义显示全部菜单项能选择被禁止的Columns，所以需要选择菜单项。

BlueStorm给出一种自定义类的方法

https://bbs.youkuaiyun.com/topics/392410238

type

 

  TDBGridEh = Class(DBGridEh.TDBGridEh)

  public

    procedure DefaultBuildIndicatorTitleMenu(var PopupMenu: TPopupMenu); override;

  end;

 

  TForm1 = class(TForm)

...........

 

implementation

 

...........

 

procedure TDBGridEh.DefaultBuildIndicatorTitleMenu(var PopupMenu: TPopupMenu);

begin

  inherited;

  PopupMenu.Items[0].Visible := False;

end;




确实可以实现，但是略显繁琐，经查还有一种属性的方式：

DBGridEh4.Center.IndicatorTitleMenus := [itmCopy, itmPaste, itmSelectAll];

IndicatorTitle的属性均为True，可见列参数itmVisibleColumnsEh，这个比较简单一些。