delphi - 如何在 TMainmenu 的项目前打勾？答案

【问题标题】：delphi - how do I make a tick in front of a TMainmenu's item?delphi - 如何在 TMainmenu 的项目前打勾？
【发布时间】：2018-04-11 11:20:40
【问题描述】：

当我单击 TMainMenu 项目时，我想在它前面放置一个勾号或“x”。有什么办法吗？

【问题讨论】：

将TMenuitem的Checked属性设置为true。
问题的确切答案是这里的第一条评论，答案提供了切换项目的解决方案。
@Sertac，不是，它说 “我想在 TMainMenu 项目前放置一个勾号或“x”当我点击它时” 。好吧，它没有说明删除此类标记，但我只是假设这是想要的行为。

标签： delphi delphi-xe7

【解决方案1】：

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

自动检查

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

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

【讨论】：

【解决方案2】：

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

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

【讨论】：