dxRibbonRadialMenu控件使用

设计视图

双击dxRibbonRadialMenu1增加项目

增改显示文字

增加图标列表

代码很简单,从当前鼠标位置打开,屏蔽系统右键

procedure TForm1.cxMemo1ContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
begin
  dxRibbonRadialMenu1.PopupFromCursorPos;
  Handled := True;
end;

点右键最终显示效果

posted @ 2016-03-11 22:00  liessay  阅读(978)  评论(0)  编辑  收藏  举报