有关dbgrid中右侧滚动条的问题(100分)

  • 主题发起人 主题发起人 iwantdown
  • 开始时间 开始时间
I

iwantdown

Unregistered / Unconfirmed
GUEST, unregistred user!
在dbgrid显示数据库数据时,右侧有一个滚动条,当移动滚动条时,dbgrid表格左侧的指针会跟着移动;滚动条一次拉到底时,指针直接跳到最后一行;<br>请问怎么设置或写程序能够使滚动条移动而指针不动?谢谢回答
 
用 cxGrid 就可以。
 
之所以指针滚动是因为其内置的机制是显示前面数据时,指针一定要指向那笔记录的,是默认的行为
 
默认的DBGRID滚动条其实是有bug的 用修正的原理就可以解决问题了<br>procedure TFormAcctBalance.NewGridWnd(var Message: TMessage);<br>var<br>&nbsp; IsNeg : Boolean;<br>begin<br><br>&nbsp; if Message.Msg = WM_MOUSEWHEEL then<br>&nbsp; begin<br>&nbsp; &nbsp; if not flag then exit;<br>&nbsp; &nbsp; IsNeg := Short(Message.WParamHi) &lt; 0;<br>&nbsp; &nbsp; if IsNeg then<br>&nbsp; &nbsp; &nbsp; dbgrd1.DataSource.DataSet.MoveBy(1) &nbsp;//这里不移动就行<br>&nbsp; &nbsp; else<br>&nbsp; &nbsp; &nbsp; dbgrd1.DataSource.DataSet.MoveBy(-1); // 这里不移动就行<br><br>&nbsp; end<br>&nbsp; else<br>&nbsp; &nbsp; OldGridWnd(Message);<br>end;
 
请问楼上,这段代码加在哪里好用啊,我用的是dbgrid,ado链接的access数据库
 

Similar threads

S
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
913
SUNSTONE的Delphi笔记
S
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
后退
顶部