如何重载show事件?

Question

想在TEDIT控件中重载SHOW事件,但按这样的声明编译的时候通不过,请教一下该如何实现啊!
  
  
  PROTECTED
    PROCEDURE Show; OVERRIDE;

Answer 1

那你得改一下Delphi源码
procedure Show;virtual;//加上virtual，声明为虚函数

Answer 2

但我写的控件想TEDIT的show事件先执行,在运行一些自己的设置,如果使用virtual能声明函数,但不能复用TEDIT的Show

Answer 3

比较建议在SHOW中,调用另一个可以重载的函数.