设计视图

dxRibbonRadialMenu控件使用-LMLPHP

双击dxRibbonRadialMenu1增加项目

dxRibbonRadialMenu控件使用-LMLPHP

增改显示文字

dxRibbonRadialMenu控件使用-LMLPHP

增加图标列表

dxRibbonRadialMenu控件使用-LMLPHP

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

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

点右键最终显示效果

dxRibbonRadialMenu控件使用-LMLPHP

05-02 00:39