Question

如何让delphi的每个dbgrid双击表头都执行dbgrid1的表头点击事件程序

如我想让每个dbgrid都执行dbgrid1的TitleClick事件程序，如DBGrid41.ontitleclick:=DBGrid1TitleClick;
怎么写遍历每个dbgrid，让他们都执行的程序

Answer 1

还以为你自己能解决了呢，又搞一个提问出来。

追问

不好意思，我是做数据分析的，delphi编程只是实习一些数据分析的结果的展示而已，所以不太精通，也没有时间和必要去研究他，所以昨天就不想再麻烦你了
你这个程序我试过了，没有效果啊，但也没有报错

追答

当然这只解决了各DBGrid的OnTitleClick事件的定向问题，这点是没问题的，你可以看看附件的例子。至于事件过程内的代码是不是能做到通用于每个DBGrid，那就看你能不能利用好事件过程的Column参数了。

追问

我试过了，情况是这样的，
我全部的dbgrid都在pagecontrol的每一个tabsheet上，我把程序运行后，就没有效果
而在form上，没在pagecontrol的，就有效果
这是为什么啊，我用自己的办法试了几次都不行，再麻烦问问，非常感谢

追答

把代码中的Control换成Component就行了，控件（Controls）是有父子关系的，因而不直接放在窗体上就不属于窗体。而部件（Component）没有，都找得到。

Answer 2

你先写个公共方法，每个DBGridTitleClick都调用这个方法

Answer 3

会出错的吧，如果DBGrid和DBGrid1的字段不一致会不会出错，你应该问想要达到 什么效果。