使用 Delphi 5 自动检查 TMenuItem

Question

创建自动管理其选中属性的自定义 TMenuItem 的正确方法是什么。 请记住，一旦有人会：

myHelloItem.OnClick := helloword;

那么行为就会丢失...

在 Delphi 7 中如何实现这一点？

问候，

Answer 1

两个选项：

1. 您有一个 AutoCheck 属性，使每次单击都会切换该菜单项的复选标记，而不管 OnClick 行为如何（尽管我相信 OnClick 实现可以覆盖 AutoCheck）。 然而它限制了功能。
2. 您可以继承TMenuItem并在Click方法中实现您想要的行为，即调用“OnClick”的方法