Delphi里控件的事件都是由控件自己触发，
没有一个“门”是大家都必须经过
如果有一个“门”是所有事件都需要经过，那么你在这个门上做处理，
接管以后的调用，就可以做到你要做的

但我觉得还是有办法造出一个门，
可能麻烦点，就是接管所有控件的WndProc过程，
使用自己的处理过程，那样，所有的事件你都可以随便弄了。
这样就需要在程序运行前有你的一段代码处理Form上的所有控件
代替他们原来的WndProc，意思就是不再用控件原先造好的自己的门
都使用你自己的一个大门（其实这个大门里的很多代码都是复制他们原先的门里的代码）

这个办法我觉得可行，但工程大，而且一旦用到一个新控件，
你就得把新控件的新东西搬过来到你的大门里

你参考参考吧
什么堆栈处理啊，太高级，我不会
也许要是会的话，那是个最好的办法也不一定