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;