Question

Delphi怎么才能让menuitem中的菜单每次只能勾选一个。

我在写多语言程序的时候这样写的。

procedure Tfrm_Main.English1Click(Sender: TObject);
begin
siLangDispatcher1.ActiveLanguage := TComponent(Sender).Tag;
TMenuItem(Sender).Checked := True;
end;

procedure Tfrm_Main.MainMenu1Change(Sender: TObject; Source: TMenuItem;
Rebuild: Boolean);
begin
;//这里怎么保证每次只有一个被勾选呢。
end;

Answer 1

建议
建立manuitem时，将属性表的 groupindex 给一个值，假设你有三个Lang选项
就把这三个 manuitemex.groupindex 都设成同一个编号 (ex: 10)
以及把 manuitemex.radioitem 设为 true
就能确保每次点选这三个选项，只能有一个被选中。
不需要写程式。

Answer 2

最老实的搞法:如果有A、B、C三个子菜单项,当点击一个菜单项时就：如点击A菜单项就在其单击事件中写上：a.checked:=true;B.checked:=false;C.checked:=false;如点击B菜单项就在其单击事件中写上：B.checked:=true;a.checked:=false;C.checked:=false;...............