Delphi - как поставить галочку напротив пункта tmainmenu?

Я хочу поставить галочку или «x» перед элементом TMainMenu, когда я щелкаю по нему. Есть ли способ сделать это?

image

Установите для свойства TMenuitemChecked значение true.

Andreas Rejbrand 11.04.2018 13:27

На самом деле точный ответ на вопрос - это первый комментарий здесь, ответы предоставляют решение для переключения элемента.

Sertac Akyuz 12.04.2018 15:57

@Sertac, это не так, там написано "Я хочу поставить галочку или" x "перед элементом TMainMenu когда я нажимаю на это". Ну, в нем ничего не говорится об удалении такой отметки, но я просто предположил, что это желаемое поведение.

Victoria 12.04.2018 22:09
2
3
192
2
Перейти к ответу Данный вопрос помечен как решенный

Ответы 2

Предполагая, что пункт меню называется mnuSetting, просто запишите это в его обработчике OnClick:

procedure TForm1.mnuSettingClick(Sender: TObject);
begin
  mnuSetting.Checked := not mnuSetting.Checked;
end;
Ответ принят как подходящий

Включите свойство AutoCheck пункта меню. Связанная ссылка описывает это как:

AutoCheck

Indicates whether the menu item's checked state toggles automatically when the item is clicked.

When AutoCheck is true, then every time the menu item is clicked, the value of the Checked property toggles automatically before the OnClick event occurs. When AutoCheck is false, the application must explicitly set the value of the Checked property (for example, in an OnClick event handler).

Другие вопросы по теме