uniDBGrid標題上彈出右鍵菜單

uniDBGrid目前支持在單元格上彈出右鍵菜單，如果想在標題上彈出右鍵菜單，該怎么實現呢？

第一步：設置

UniMainModule.BrowserOptions.boDisableMouseRightClick = True

第二步：UniDBGrid1.ClientEvents.ExtEvents中寫JS代碼：

function headercontextmenu(ct, column, e, t, eOpts)
{
    ajaxRequest(this, "_hcmenu", ["x="+(e.clientX-this.getEl().getX()), 
                                  "y="+(e.clientY-this.getEl().getY())
    ]);
}

第三步：處理uniDBGrid.OnAjaxEvent：

procedure TMainForm.UniDBGrid1AjaxEvent(Sender: TComponent; EventName: string;
  Params: TUniStrings);
var
  X, Y: Integer;
begin
  if EventName = '_hcmenu' then
  begin
    X := Params.Values['x'].ToInteger();
    Y := Params.Values['y'].ToInteger();
    UniPopupMenu1.Popup(X, Y, Sender);
  end;

end;