德尔福 - 如何在TMainmenu项目前面勾选？

Question

当我点击它时，我想在TMainMenu项目前面加上勾号或“x”。有没有办法做到这一点？

Answer 1

启用菜单项的AutoCheck属性。链接的参考将其描述为：

  

<强>自动检查

     

指示菜单项的选中状态是否自动切换   单击该项目时。

     

当AutoCheck为true时，则每次单击菜单项时，都会出现   Checked属性的值在OnClick之前自动切换   事件发生。当AutoCheck为false时，应用程序必须显式   设置Checked属性的值（例如，在OnClick中   事件处理程序）。

Answer 2

假设菜单项名为mnuSetting，只需将其写在OnClick处理程序中：

procedure TForm1.mnuSettingClick(Sender: TObject);
begin
  mnuSetting.Checked := not mnuSetting.Checked;
end;