Grid.DefaultBuildIndicatorTitleMenu(PopupMenu);

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DBGridEhGrouping, MemTableDataEh, Db, MemTableEh, GridsEh, DBGridEh,
  Menus, ExtCtrls;

const
  CM_MENU_CLOSED = CM_BASE + 1001;


type
  TForm1 = class(TForm)
    grMain: TDBGridEh;
    MemTableEh1: TMemTableEh;
    MemTableEh1City: TStringField;
    MemTableEh1Country: TStringField;
    DataSource1: TDataSource;
    Timer1: TTimer;
    procedure grMainBuildIndicatorTitleMenu(Grid: TCustomDBGridEh; var PopupMenu:
      TPopupMenu);
    procedure CM_MenuClosed(var msg: TMessage); message CM_MENU_CLOSED;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }



  protected
  public
    { Public declarations }
  end;
type

  TPopupListEx = class(TPopupList)
  protected
    procedure WndProc(var aMsg: TMessage); override;
  private
    procedure PerformMessage(cm_msg: integer; aMsg: TMessage);
  end;


var
  Form1: TForm1;

implementation

uses
  EhLibConsts, StrUtils;

{$R *.dfm}

procedure TForm1.CM_MenuClosed(var msg: TMessage);
begin
  Timer1.Enabled := True
end;

procedure TForm1.grMainBuildIndicatorTitleMenu(Grid: TCustomDBGridEh; var
  PopupMenu: TPopupMenu);
begin
  Grid.DefaultBuildIndicatorTitleMenu(PopupMenu);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  fCN: string;
  i: Integer;
begin
  Timer1.Enabled := False;

  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;

  ShowMessage(fCN);

end;


{ TPopupListEx }

procedure TPopupListEx.PerformMessage(cm_msg: integer; aMsg: TMessage);
begin
  if Screen.Activeform <> nil then
    Screen.ActiveForm.Perform(cm_msg, aMsg.WParam, aMsg.LParam);
end;

procedure TPopupListEx.WndProc(var aMsg: TMessage);
begin
  if aMsg.Msg = WM_MENUSELECT then
    if (TWMMenuSelect(aMsg).Menu = 0) and (TWMMenuSelect(aMsg).MenuFlag = $FFFF) then
      PerformMessage(CM_MENU_CLOSED, aMsg);
  inherited;
end;

initialization
  Popuplist.Free; //free the "default", "old" list
  PopupList := TPopupListEx.Create; //create the new one
  // The new PopupList will be freed by
  // finalization section of Menus unit.
end.


end.

procedure TPopupListEx.PerformMessage(cm_msg: integer; msg : TMessage) ;
begin
    if Screen.Activeform = nil // Нужно <>
     then Screen.ActiveForm.Perform(cm_msg, msg.WParam, msg.LParam) ;
end;

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;