关于DBGrid中，点击某列进行排序后，如何还继续显示该列？

[zhgwbzhd]

1、我的编译工具是bcb2010。DBGrid，DataSource，ADOQuery。
2、在DBGrid的TitleClick事件中，实现点击排序。
ADOQuery1->Sort = Column->FieldName + " ASC";
或
ADOQuery1->Sort = Column->FieldName + " DESC";

3、这样确实可以实现排序。但是当列较多时，拖动滚动横条，点击某列数据后，自动滚动到第一列。

我现在想实现，点击某列，按照该列排序后，该保持显示该列，别自动跳到第一列，该如何实现呢？谢谢各位。