库存管理软件版1楼: DBGrid （DBE）垂直滚动条的位置怎样随记录条数自动滚动？
谢谢

2楼: 不太明白你的意思，可以说清楚一点吗？ 如销售管理软件下载

3楼: 为DBGride添加鼠标滚动事件？

procedure TFrmMain.FormCreate(Sender: TObject);
begin
Application.OnMessage:=OnMousewheel;
end;

procedure TFrmMain.OnMousewheel(var msg:tmsg;var handled:boolean);
begin
if msg.message=WM_MOUSEWHEEL then
begin
if msg.wParam>0 then
begin
if dbgTemplatel.Focused then
Sendmessage(dbgTemplatel.Handle,WM_VSCROLL,SB_LINEUP,0)
end
else
begin
if dbgTemplatel.Focused then
Sendmessage(dbgTemplatel.Handle,WM_VSCROLL,SB_LINEDOWN,0);
end;
handled:=true;
end;
end;

4楼: 谢谢！

5楼: 问题好像没有说清楚哦。

6楼: DBGrid在使用BDE的方式连接数据库时，也就是用4个控件：
TDataBase，TQuery，TDataSource，TDBGrid
DBGrid的垂直滚动条只有3个位置：上，中，下
如何使DBGrid垂直滚动条能根据每次返回的数据集的大小自动适应，包括滚动条长度和位置的适应，也就是像word的滚动条那样比较智能，呵呵
谢谢