设计视图
双击dxRibbonRadialMenu1增加项目
增改显示文字
增加图标列表
代码很简单,从当前鼠标位置打开,屏蔽系统右键
procedure TForm1.cxMemo1ContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean);begin dxRibbonRadialMenu1.PopupFromCursorPos; Handled := True;end;
点右键最终显示效果
本文共 293 字，大约阅读时间需要 1 分钟。
设计视图
双击dxRibbonRadialMenu1增加项目
增改显示文字
增加图标列表
代码很简单,从当前鼠标位置打开,屏蔽系统右键
procedure TForm1.cxMemo1ContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean);begin dxRibbonRadialMenu1.PopupFromCursorPos; Handled := True;end;
点右键最终显示效果
转载于:https://www.cnblogs.com/win32pro/p/5267399.html