DBGridEh讓選擇的記錄不隨垂直滾動(dòng)條滾動(dòng)而移動(dòng).使用Delphi的人都知道，Delphi中的Grid與PB或者其他的Grid有區(qū)別，就是在滾動(dòng)時(shí)記錄指針會(huì)跟著改變。能不能做到像PB中的DataWindow一樣滾動(dòng)時(shí)選定記錄不改變呢？方案一、使用內(nèi)存表控件，Ehlib里面有現(xiàn)成的。問(wèn)題：數(shù)據(jù)量較大時(shí)速度很慢，而且內(nèi)存占用比較嚴(yán)重；方案二、不使用DB類(lèi)的Grid控件，使用stringgrid或者listview之類(lèi)的，虛擬列表比如Virtualstringtree。缺點(diǎn)：使用起來(lái)比較麻煩，實(shí)現(xiàn)一些擴(kuò)展功能不太方便。Virtualstringtree功能那是相當(dāng)強(qiáng)大，但是使用不太容易。方案三、對(duì)DBGrid或者DBGridEh控件進(jìn)行修改，滾動(dòng)時(shí)進(jìn)行重畫(huà)。經(jīng)過(guò)反復(fù)測(cè)試和參考TopGrid覺(jué)得方案可行，能到達(dá)要求。下面重點(diǎn)討論這種方案。實(shí)現(xiàn)步驟：（以DBGridEh5.2.80為基礎(chǔ)進(jìn)行修改，這個(gè)控件擴(kuò)展比較容易）1、將記錄指針的焦點(diǎn)框去除（修改DBGRIDEH源碼）；constructorTDBGridEhStyle.Create;begininheritedCreate;FGrids:=TObjectList.Create(False);{$IFDEFCIL}FWindowHandle:=WinUtils.AllocateHWnd(StyleWndProc);{$ELSE}FWindowHandle:={$IFDEFEH_LIB_6}Classes.{$ENDIF}AllocateHWnd(StyleWndProc);{$ENDIF}FLuminateSelection:=True;FIsDrawFocusRect:=false;//True;

//是否顯示焦點(diǎn)框SysColorChanged;FInTitleFitlerButtonStyle:=ebsDropDownEh;end;2、重載滾動(dòng)條事件；procedureTSDBGridF.DBGridEhProc(varMessage:TMessage);//處理滾動(dòng)條信息varsi:TScrollInfo;Par:WPARAM;beginDoubleBuffered:=True;caseMessage.MsgofWM_MOUSEWHEEL://鼠標(biāo)中鍵beginFillChar(si,SizeOf(si),0);si.cbSize:=SizeOf(si);//下一句設(shè)置所有信息標(biāo)志掩碼位,以便拿全部信息si.fMask:=SIF_TRACKPOSorSIF_RANGEorSIF_POSorSIF_PAGE;withTWMMouseWheel(Message)dobeginGetScrollInfo(Handle,SB_VERT,si);//拿滾動(dòng)條相關(guān)信息ifWheelDelta<0then//小于0則表示向下滾動(dòng)beginifKeys=MK_CONTROLthen//做點(diǎn)處理,按下CTRL鍵,則翻頁(yè)滾動(dòng).//PostMessage(D.Handle,WM_VSCROLL,SB_PAGEDOWN,0)Par:=SB_PAGEDOWNelse//PostMessage(D.Handle,WM_VSCROLL,SB_LINEDOWN,0)Par:=SB_LINEDOWN;//不按特殊鍵,則單行滾動(dòng)Perform(WM_VSCROLL,Par,0);endelsebeginifKeys=MK_CONTROLthen//同上,只是滾動(dòng)方向相反Par:=SB_PAGEUPelsePar:=SB_LINEUP;Perform(WM_VSCROLL,Par,0);end;end;end;WM_VSCROLL://縱向滾動(dòng)條beginwithTWMVScroll(Message)dobegin//

ifDataSource.DataSet.RecordCount<30000then//

begincaseScrollCodeofSB_THUMBTRACK:beginPerform(WM_VSCROLL,SB_THUMBPOSITION,Pos);end;end;end;end;end;F(Message);end;3、重載MouseDown事件；procedureTSDBGridF.MouseDown(Button:TMouseButton;//鼠標(biāo)按下Shift:TShiftState;X,Y:Integer);vari:Integer;begininheritedMouseDown(Button,Shift,X,Y);ifAssigned(DataSource)thenbeginif(ssleftinshift)and(Y>22{表格頭部高度})thenbeginbSortFlag:=False;//排序標(biāo)志取消fori:=0toColumns.Count-1dobeginColumns[i].Color:=clWindow;Columns[i].Font.Color:=clBlack;end;ifSelectedRows.Count>0thenifSelectedRows.CurrentRowSelected=TruethenExit;ifnot(dgMultiSelectinOptions)thenSelectedRows.Clear;//如果不是多項(xiàng)選擇時(shí)清空if(dgRowSelectinOptions)then//需要進(jìn)行選擇時(shí)才進(jìn)行選擇SelectedRows.CurrentRowSelected:=True;ifDataSource.DataSet.ActivethenSaveBookmark;end;end;end;4、重載KeyDown事件。procedureTSDBGridF.KeyDown(varKey:Word;Shift:TShiftState);//鍵按下begininheritedKeyDown(Key,Shift);ifnotAssigned(DataSource)thenExit;ifnotAssigned(DataSource.DataSet)thenExit;ifnotDataSource.DataSet.ActivethenExit;ifDataSource.DataSet.RecordCount<1thenExit;if((not(dgMultiSelectinOptions))and(not(dgRowSelectinOptions)))thenExit;DoubleBuffered:=True;Parent.DoubleBuffered:=True;BeginUpdate;ifKeyin[33..36]then//PgUpPgDnEndHomebeginSelectedRows.Clear;SelectedRows.CurrentRowSelected:=True;SaveBookmark;end;ifKey=38then//UpbegintryRestoreBookmark;DataSource.DataSet.Prior;SelectedRows.Clear;SelectedRows.CurrentRowSelected:=True;SaveBookmark;exce