怎么选择一个子菜单后，其它的子菜单变的不可用！

Question

怎么选择一个子菜单后，其它的子菜单变的不可用！
如何控制菜单中的子菜单？

Answer 1

设置其它菜单的Enabled属性为False即可！
例如：mn1.Enabled:=False;
子菜单也是一样的。

Answer 2

楼主是这个意思吗？
专门搞一个过程处理这个问题，比如：
procedure TTestForm.HandleMenu(Sender : TObject);
var
  i : integer;
begin
  for i := 0 to ComponentCount - 1 do
    if Components[i] is TMenuItem then
      TMemuItem(Components[i]).Enable := False;
  TMenuItem(Sender).Enable := True;
end;
然后给每个TMenuItem对象的OnClick事件都赋值这个过程就ok了。