Fórum DBGrid personalizada #378904

  {se nao tiver popup, é criado um novo}
  if Self.PopupMenu <> nil then
    _PopupMenuGrid := Self.PopupMenu
  else
    _PopupMenuGrid := TPopupMenu.Create(nil);

  {cria-se os itens do popup}
  _MenuItem1 := TMenuItem.Create(nil);
  _MenuItem2 := TMenuItem.Create(nil);
  _MenuAdicionarColuna := TMenuItem.Create(nil);
  _MenuLinha1 := TMenuItem.Create(nil);
  _MenuLinha2 := TMenuItem.Create(nil);
  _MenuLinha3 := TMenuItem.Create(nil);
  _MenuRenomearColuna := TMenuItem.Create(nil);
  _MenuRemoverColuna := TMenuItem.Create(nil);

...
  
  {se já tiver um popup é adicionada uma linha para dividir}
  if Self.PopupMenu <> nil then
    _PopupMenuGrid.Items.Add(_MenuLinha3);

  {adicionam-se os itens ao popup}
  _PopupMenuGrid.Items.Add(_MenuItem1);
  _PopupMenuGrid.Items.Add(_MenuItem2);
  _PopupMenuGrid.Items.Add(_MenuLinha1);
  _PopupMenuGrid.Items.Add(_MenuAdicionarColuna);
  _PopupMenuGrid.Items.Add(_MenuRenomearColuna);
  _PopupMenuGrid.Items.Add(_MenuLinha2);
  _PopupMenuGrid.Items.Add(_MenuRemoverColuna);

  _PopupMenuGrid.AutoPopup := True;


  { liga o popup a grid }
  Grid.PopupMenu := _PopupMenuGrid;