Delphi中TcxGridPopupMenu自定义右键菜单的高级用法
在使用DevExpress VCL控件库时，TcxGridPopupMenu用于为cxGrid组件添加自定义右键菜单功能。其默认行为会显示一系列系统级操作选项，如排序、分组、字段选择等。若需精简或定制菜单内容，可通过拦截Popup事件实现。
首先，在Form的OnPopup事件中注册自定义处理逻辑：
procedure TForm1.cxGridPopupMenu1Popup(ASenderMenu: TComponent; AHitTest: TcxCustomGridHitTest;
X, Y: Integer; var AllowPopup: Boolean);
begin
if ASenderMenu is TcxGridStdHeaderMenu then
TcxGridStdHeaderMenu(ASenderMenu).OnPopup := StdHeaderMenuPopup;
end;
接下来通过遍历菜单项并根据标题名称控制可见性，隐藏不需要的功能：
procedure TForm1.StdHeaderMenuPopup(Sender: TObject);
var
I: Integer;
HiddenItems: string;
begin
HiddenItems :=
'Sort Ascending' +
'Sort Descending' +
'Clear Sorting' +
'Group By This Field' +
'Group By Box' +
'Footer' +
'Group Footers';
with TcxGridStdHeaderMenu(Sender).Items do
for I := 0 to Count - 1 do
if AnsiPos(Items[I].Caption, HiddenItems) > 0 then
Items[I].Visible := False
else
// 对保留项进行中文翻译
case Items[I].Caption of
'Remove This Column': Items[I].Caption := '隐藏此列';
'Field Chooser': Items[I].Caption := '显示列';
'Best Fit': Items[I].Caption := '最佳宽度';
'Best Fit (all columns)': Items[I].Caption := '最佳宽度（所有列）';
end;
end;
若需添加自定义菜单项，应避免直接调用Add后立即释放对象。正确做法是引入状态标记，仅首次创建时生成菜单项，并防止重复添加：
var
IsNew: Boolean;
procedure TForm1.FormCreate(Sender: TObject);
begin
IsNew := True;
end;
procedure TForm1.cxGridPopupMenu1Popup(ASenderMenu: TComponent; AHitTest: TcxCustomGridHitTest;
X, Y: Integer; var AllowPopup: Boolean);
begin
if ASenderMenu is TcxGridStdHeaderMenu then
TcxGridStdHeaderMenu(ASenderMenu).OnPopup := StdHeaderMenuPopup;
// 仅首次弹出时添加自定义菜单
if IsNew then
begin
var TempItem := TMenuItem.Create(self);
TempItem.Action := Action1; // 使用Action绑定，支持图标与文本同步
TcxGridStdHeaderMenu(ASenderMenu).Items.Add(TempItem);
IsNew := False;
end;
end;
为实现图标显示正常，必须确保所关联的Action已配置正确的图标资源。在设计器中将Action的ImageIndex或Glyph属性设置为可用图像索引，且确保ImageList已被正确分配给ActionList。
此外，若希望在不同区域（如数据行、表头、空白区域）触发不同上下文菜单，可利用HitTypes属性来指定允许弹出的位置类型。例如：
htHeader：仅在列标题区域触发；htData：在数据单元格区域触发；htEmpty：在空白区域触发。
通过为不同区域配置独立的PopupMenu，可实现精细化的上下文响应机制。值得注意的是，当使用多个PopupMenu并结合HitTypes时，图标显示问题通常会自然消失，这可能与控件渲染上下文的刷新有关。
最后提醒：
- 所有基于Action的菜单项，务必设置
Action.Caption以保证显示文本正确； - 若未为Action指定事件处理器，菜单项将呈现为灰色不可用状态；
- 避免在动态创建后立即调用Free，否则会导致菜单项丢失或崩溃。
