将指令插入组件事件

时间:2012-02-28 17:52:55

标签: delphi components

我想通过插入一个选项如何执行计时器的manny来扩展TTimer的功能。

我的问题是我需要在OnTimer()事件中执行此操作。有没有办法可以覆盖这个事件,从而保持原有的功能?

1 个答案:

答案 0 :(得分:5)

大多数好的组件都有受保护的虚拟或动态方法,除了调用相应的事件之外什么都不做。这样,后代可以插入自己的与事件相关的代码,同时在组件的最终用户放置在表单上时仍然可以使实际事件可用。

对于TTimer,调用OnTimer事件的方法是Timer。创建TTimer的后代并覆盖该方法。检查您已经调用该函数的次数,如果仍然低于限制,则调用inherited