设计视图双击dxRibbonRadialMenu1增加项目增改显示文字增加图标列表代码很简单,从当前鼠标位置打开,屏蔽系统右键procedure TForm1.cxMemo1ContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean); begin dxRibbonRadialMenu1.PopupFromCursorPos; Handled := True; end;点右键最终显示效果