delphi - TMenuItem 使用 Delphi 5 自动检查

Question

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

myHelloItem.OnClick := helloword;

然后行为就消失了……

在 Delphi 7 中是如何实现的？

问候，

Answer 1

两种选择：

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