如何控制DBGrid的滚动条

[delphilove]

在DBGrid控件右侧的滚动条运行时始终在中间位置或顶端或底端，不能根据实际情况移动，如何正确配置滚动条的范围、以及在单击或拖动滑块时如何正确设置滚动条的位置？
void _fastcall TForm1::GridWindowProc(TMessage &Message)
{
if (Message.Msg == WM_VSCROLL)
{
int nPos = GetScrollPos((HWND)Message.LParam, SB_VERT);
if (Message.WParam == SB_LINEUP)
{
t->DataSource->DataSet->Prior();
SetScrollPos((HWND)Message.LParam, SB_VERT, nPos - 1, TRUE);
Message.Msg = 0;
}
if (Message.WParam == SB_LINEDOWN)
{
t->DataSource->DataSet->Next();
SetScrollPos((HWND)Message.LParam, SB_VERT, nPos + 1, TRUE);
Message.Msg = 0;
}
}
OldGridProc(Message);
}
我用上述的方法尝试设置，结果没有任何反应，应该如何设置啊？还有应该在哪里设置滚动条的Range和nPage啊？

[Lonelywolf1899]

这是BCB才有的特性吧？

[suny803]

xi

[Libran]

还有一点要补充说明：
如果用ADOTable/ADOQuery获取数据集，且其Filtered属性为false的话，那么上面的代码就不需要了，DBGrid的滚动条滑块的高度和位置都和实际记录数以及当前记录位置是相适应的。

[delphilove]

我试了一下，还是不行，这样运行起来，滑块的位置怎么总是在最上端呢？

[Libran]

嗯。。。因为你用的是BDE，TTable/TQuery的RecNo值总是-1的。。。不好办哪。。。

咱商量一下，你换用ADO好不啦？

[delphilove]

哦，那我用ADO试一下啦！:)

[delphilove]

OK,搞定，结贴！

[delphilove]

每次运行到函数中取nPos时，取得的nPos值都是0，这是为什么呢？

[delphilove]

顶一下

[Libran]

修改GridWindowProc：（去掉你加的两行，增加SB_THUMB...消息处理）
void _fastcall TForm1::GridWindowProc(TMessage &Message)
{
if (Message.Msg == WM_VSCROLL)
{
int nPos = GetScrollPos((HWND)Message.LParam, SB_VERT);
if (Message.WParam == SB_LINEUP)
{
t->DataSource->DataSet->Prior();
Message.Msg = 0;
}
if (Message.WParam == SB_LINEDOWN)
{
t->DataSource->DataSet->Next();
Message.Msg = 0;
}
if (LOWORD(Message.WParam) == SB_THUMBPOSITION ||
LOWORD(Message.WParam) == SB_THUMBTRACK)
{
t->DataSource->DataSet->RecNo = HIWORD(Message.WParam);
return;
}
}
OldGridProc(Message);
}

再在t->DataSource->DataSet的AfterScroll事件里加代码：
{
ShowScrollBar(t->Handle, SB_VERT, false);
SCROLLINFO si;
memset(&si, 0, sizeof(SCROLLINFO));
si.cbSize = sizeof(SCROLLINFO);
si.fMask = SIF_PAGE | SIF_RANGE | SIF_POS;
si.nPage = 8; //这里设为DBGrid一次可以显示的记录数；
//实在不好确定，可以为0（滑块稍微难看一点儿）
si.nMin = 1;
si.nMax = t->DataSource->DataSet->RecordCount + si.nPage - 1;
si.nPos = t->DataSource->DataSet->RecNo;
SetScrollInfo(t->Handle, SB_VERT, &si, true);
ShowScrollBar(t->Handle, SB_VERT, true);
}