怎样使右键菜单前面加一个对勾？

Question

在右键菜单中点击后前面有一对勾做标记，再点后对勾消失。

Answer 1

对checked属性进行控制
如：
   n1.checked := true;

Answer 2

TMenuItem(Sender).caption:='◆ '+trim(TMenuItem(Sender).caption);
ok?

Answer 3

在Click的时候设Checked属性为True

Answer 4

可以在某个菜单项的OnClick事件中假如如下代码：
begin
  ppmiCheck.Checked := not ppmiCheck.Checked; // ppmiCheck: TMenuItem;
end;

Answer 5

右击菜单的属性：Checked
好多多摸索一下