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

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

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

https://bbs.csdn.net/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，这个比较简单一些。