求解:菜单的复选框不出现对勾

就是下面几行代码。目的是:点选菜单后,首先清除所有菜单项的复选标志,然后在点击的菜单项上出现对勾。可是这几行代码不起作用,是怎么回事啊?
用的是xe8.
还请大家帮忙看看,好几天了也没有解决,多谢了!!!

Procedure TxData.mnuClick(Sender: TObject);
var
aStr :tstrings;
i,j:integer;
Begin
CurrentShapeType := trim(TMenuItem(Sender).Capt

圈主 管理员

待审

热门评论
:
讨论
  • 阅读剩余条回复 加载中...
没有讨论,您有什么看法?
图片审查中...
我的回答: 最多上传一张图片和一个附件
x
x
个人中心
购物车
优惠劵
今日签到
有新私信 私信列表
搜索