Question

delphi中mainmenu如何触发单击mainmenu时的事件

我使用了一个mainmenu，双击mainmenu图标后我创建了几个，第一个是：选择颜色
下面几个就分别是红色，黄色等等，请问我该在哪个事件里写当点击红色时则为红色，当为黄色时为黄色的程序呢？
也就是有几个menuitem选择菜单，如何实现当单击一个menuitem时触发事件呢？
TMenuItem(Sender).Checked:=true;
case TMenuItem(Sender).Tag of
1001:FclColor :=clRed;
1002:FclColor :=clGreen;
1003:FclColor :=clBlue;
1004:FclColor :=clYellow;
1005:FclColor :=clBlack;
1006:FclColor :=clFuchsia;
end;
CanvasWork.Pen.Color:=FclColor;
以上这段代码我该写在哪个事件中呢？谢谢了

Answer 1

把相应的语句写在每个menuitem的click事件中