该博客介绍了如何通过Delphi的dxRibbonRadialMenu1组件来创建一个从鼠标位置弹出的右键菜单。通过双击该组件添加项目，设置显示文字和图标，并在cxMemo1的ContextPopup事件中屏蔽系统右键，以实现自定义的右键菜单效果。代码简单直接，展示了如何实现这一功能。
设计视图
双击dxRibbonRadialMenu1增加项目
增改显示文字
增加图标列表
代码很简单,从当前鼠标位置打开,屏蔽系统右键
procedure TForm1.cxMemo1ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
dxRibbonRadialMenu1.PopupFromCursorPos;
Handled := True;
end;点右键最终显示效果
转自：https://www.cnblogs.com/liessay/p/5267399.html
扫一扫
253
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
