DBGridEh让选择的记录不随垂直滚动条滚动而移动

 

 

 

 

 

 

 

 

使用Delphi的人都知道，Delphi中的Grid与PB或者其他的Grid有区别，就是在滚动时记录指针会跟着改变。能不能做到像PB中的DataWindow一样滚动时选定记录不改变呢？

 

方案一、使用内存表控件，Ehlib里面有现成的。

          问题：数据量较大时速度很慢，而且内存占用比较严重；

 

方案二、不使用DB类的Grid控件，使用stringgrid或者listview之类的，虚拟列表比如Virtual stringtree。

          缺点：使用起来比较麻烦，实现一些扩展功能不太方便。Virtual stringtree功能那是相当强大，但是使用不太容易。

 

方案三、对DBGrid或者DBGridEh控件进行修改，滚动时进行重画。经过反复测试和参考TopGrid觉得方案可行，能到达要求。下面重点讨论这种方案。

 

    实现步骤：（以DBGridEh5.2.80为基础进行修改，这个控件扩展比较容易）

 

1、将记录指针的焦点框去除（修改DBGRIDEH源码）；

 

constructor TDBGridEhStyle.Create;
begin
  inherited Create;
  FGrids := TObjectList.Create(False)