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);
{$IFDEF CIL}
  FWindowHandle := WinUtils.AllocateHWnd(StyleWndProc);
{$ELSE}
  FWindowHandle := {$IFDEF EH_LIB_6}Classes.{$ENDIF}AllocateHWnd(StyleWndProc);
{$ENDIF}
  FLuminateSelection := True;
  FIsDrawFocusRect := false;// True;   //是否显示焦点框
  SysColorChanged;
  FInTitleFitlerButtonStyle := ebsDropDownEh;
end;

 

2、重载滚动条事件；