MainMenu中复选框的问题？

Question

单击某一项时让其自动在前面出现复选标记对号。但是如何再单击一下让其自动消失呢？在事件上如何处理的？例如：
       produce TForm1.color1click(sender:Tobject)
          begin
          color1.check:=True;
          ...................
但是如果想再单击color1click事件让其实现color1.check:=False;该如何写？

Answer 1

produce TForm1.color1click(sender:Tobject)
          begin
          color1.check:=not color1.check;//当然你得先初始化color1.check的值。
          ...................

Answer 2

if n1.Checked = True then
  begin
    n1.Checked := False;
  end
  else begin
    n1.Checked := True;
  end;

Answer 3

initialization
N21.checked:=not N21.Checked;
不好用的。
--------------
在同一个事件中，第一次单击选中出对号标志。第二次单击对号标志消失。