DBGrid控件如何控制其滚动条的滚动

[「已注销」]

在程序里使用一个DBGrid控件连接数据库中的一个表，在运行时控件右侧有一个滚动条，但是每次用鼠标单击滚动条的向下按钮时，控件中的内容不是一条记录一条记录地向下走，而是先跳到下一页，然后再一条一条走，如何控制它能够正常浏览呢？
还有这个滚动条的宽度是否可以根据显示内容设置？如何设置？

[「已注销」]

解决后在线给分！

[Libran]

以Form1上的DBGrid1为例：
1，在.h里添加声明：
private: // User declarations
TWndMethod OldProc;
void __fastcall NewProc(TMessage &Message);

2，在Form构造函数或OnCreate事件里：
OldProc = DBGrid1->WindowProc;
DBGrid1->WindowProc = NewProc;

3，实现NewProc：
void __fastcall TForm1::NewProc(TMessage &Message)
{
if (Message.Msg == WM_VSCROLL)
{
if (Message.WParam == SB_LINEUP)
{
DBGrid1->DataSource->DataSet->Prior();
Message.Msg = 0;
}
if (Message.WParam == SB_LINEDOWN)
{
DBGrid1->DataSource->DataSet->Next();
Message.Msg = 0;
}
}
OldProc(Message);
}

4，在Form的OnClose里：
DBGrid1->WindowProc = OldProc;

[Libran]

滚动条的宽度
——是什么？？

[「已注销」]

就是垂直滚动条的顶端到底端的长度，例如：
如果有100条记录，设置滚动条长为DBGrid高度的1/3，
如果有50条记录，设置滚动条长为DBGrid高度的1/2

[Libran]

说实话，还是没懂。。。

是整个垂直滚动条的高度？
——这个高度通常是和DBGrid的客户区的高度相一致的；

还只是滚动条中间的那个可以拖拽的划块的高度？
——这个应该由DBGrid可视范围内的记录数和总的记录数的比例，与整个垂直滚动条的高度共同来确定的。

[「已注销」]

哦，我没说明白，就是滑块的高度呀，这个应该在哪里设置啊？

[constantine]

没有地方设置，这个如果要，那么应该只有重画了

[「已注销」]

OK, 基本解决，结贴！

[Libran]

要用API函数SetScrollInfo，由结构SCROLLINFO类型的参数的成员nMin、nMax和nPage共同决定。
具体查MSDN看看。

[「已注销」]

多谢！我试试吧！:)