procedure TDBGridEhCenter.DefaultBuildIndicatorTitleMenu(Grid: TCustomDBGridEh; var PopupMenu: TPopupMenu);

  SVisibleColumnsEh = 'Видимые столбцы';

procedure TDBGridEhCenter.MenuVisibleColumnClick(Sender: TObject);
var
  Column: TColumnEh;
begin
  if Sender is TColumnEhMenuItem then
  begin
    Column := TColumnEhMenuItem(Sender).ColumnEh;
    if Column.Visible and (Column.Grid.VisibleColumns.Count <= 1) then
//  do nothing
    else
      Column.Visible := not Column.Visible;
//    with TPopupMenu(TColumnEhMenuItem(Sender).Owner) do
//    begin
//      Popup(PopupPoint.X,PopupPoint.Y);
//    end;
  end;
end;

  Grid.DefaultBuildIndicatorTitleMenu(PopupMenu);

procedure TForm1.grMainBuildIndicatorTitleMenu(Grid: TCustomDBGridEh; var
  PopupMenu: TPopupMenu);
var
  cmi: TColumnEhMenuItem;
  i: Integer;
  mi: TMenuItem;
begin
  Grid.DefaultBuildIndicatorTitleMenu(PopupMenu);

  mi := PopupMenu.Items[0]; // Первая строка
  for i := 0 to Pred(mi.Count) do
    if mi.Items[i] is TColumnEhMenuItem then begin
      cmi := TColumnEhMenuItem(mi.Items[i]);
      OldOnClick := cmi.OnClick; // Сохраняем старый обработчик
      cmi.OnClick := KOnClick; // Заменяем на свой
    end
end;

procedure TForm1.KOnClick(Sender: TObject);
var
  fCN: string;
  i: Integer;
begin
  if Assigned(OldOnClick) then begin
    OldOnClick(Sender); // Вызываем "стандартный" обработчик
    // бла- бла - бла
    fCN := 'Столбцы грида:';
    for i := 0 to Pred(grMain.Columns.Count) do begin
      fCN := Format('%s'#10'%s:%s', [fCN, grMain.Columns[i].Title.Caption,
        ifThen(grMain.Columns[i].Visible, '', ' НЕ') + 'видимый']);
    end;
    Memo1.Lines.Text := fCN
  end;
end;