delphi - 使用 Delphi 5 自动检查 TMenuItem

Question

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

myHelloItem.OnClick := helloword;

然后行为就丢失了......

在 Delphi 7 中这是如何实现的？

问候，

Answer 1

两个选项:

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