delphi,如何捕获窗体所有控件发生的事件?

来源：百度知道 编辑：UC知道 时间：2024/05/19 20:21:23
我想做到以下效果:捕获 窗体上所有的edit文本控件,当它们发生change或keypress事件时,调用某一子程序.除了在每个edit控件的onchange或onkeypress事件中加入 call 子程序,如果我程序中有几十个edit控件,我不想这样做,还有其它方法吗?

先捕获好第一个要捕获的控件的事件，再在DELPHI中的Object Inspector窗口的Events选页中，在那有对像的所有事件，你可以在想要的事件中有个下拉框的，把它指向那个捕获好的控件的相同事件就可以了，在所有事件里有个Sender: TObject的属性的，用它可以区分当前激活事件的是那个控件。如 if Sender = edit1 then beep;