cxgrid的header加入右鍵選單

把元件TcxGridPopupMenu拉進來，grid屬性設定好要的cxgrid,onpopup事件加入下面程式碼

uses cxGridStdPopupMenu;

type
  TMenuStringForCxGrid = class(TObject)
  class procedure HeaderMenuProc(Sender:TObject);
  end;

class procedure TMenuStringForCxGrid.HeaderMenuProc(Sender: TObject);
var
  HM:TcxGridStdHeaderMenu;
begin
  HM:=TcxGridStdHeaderMenu(Sender);
  if HM.Items.Count<>17 then exit;
  HM.Items[0].Caption:='&遞增排序';//遞增排序
  HM.Items[1].Caption:='&遞減排序';//遞減排序
  HM.Items[2].Caption:='&取消排序';//取消排序

  HM.Items[4].Caption:='&以此欄位分組';//以此欄位分組
  HM.Items[5].Caption:='&分組視窗';//分組視窗
  HM.Items[6].Visible:=false;
  HM.Items[7].Visible:=false;
  HM.Items[8].Visible:=false;

  HM.Items[10].Caption:='&隱藏此欄位';//隱藏此欄位
  HM.Items[11].Caption:='&欄位選擇視窗';//欄位選擇視窗

  HM.Items[13].Visible:=false;
  HM.Items[14].Caption:='&最適欄寬';//最適欄寬
  HM.Items[15].Visible:=false;
  HM.Items[16].Caption:='&最適欄寬(所有欄位)';//最適欄寬(所有欄位)

end;

PopCxGridMenuProc(ASenderMenu);  //右鍵選單中文化

//這個是呼叫到的funcion
function  PopCxGridMenuProc(ASenderMenu: TComponent):boolean;
begin
  if ASenderMenu is TcxGridStdHeaderMenu then
    TcxGridStdHeaderMenu(ASenderMenu).OnPopup := TMenuStringForCxGrid.HeaderMenuProc;
  result:=true;
end;