如何使同级菜单的Checked属性互斥?

Question

如题.

Answer 1

checked 时不能互斥的
你自己写几行代码就行了。

Answer 2

TMenuItem::AutoCheck设置为True
TMenuItem::GroupIndex设置相同
TMenuItem::RadioItem设置为True

Answer 3

//复制到你的窗体上看看 （不要复制注释）
object MainMenu1: TMainMenu
  Left = 136
  Top = 48
  object File1: TMenuItem
    Caption = 'File'
    object TxtFiles: TMenuItem
      AutoCheck = True
      Caption = '*.txt'
      Checked = True
      GroupIndex = 1
      RadioItem = True
    end
    object ExeFiles: TMenuItem
      AutoCheck = True
      Caption = '*.exe'
      GroupIndex = 1
      RadioItem = True
    end
    object IniFiles: TMenuItem
      AutoCheck = True
      Caption = '*.ini'
      GroupIndex = 1
      RadioItem = True
    end
  end
end