4802
社区成员
- 主页
- 招聘
- 语言基础/算法/系统设计
- 数据库相关
- 图形处理/多媒体
- 网络通信/分布式开发
- VCL组件开发及应用
- Windows SDK/API
- 问答
Delphi中的DBGrid的滚动问题？？请赐教！！！进入
我用Delphi的DBGrid打开数据库的表，将里面的数据显示出来，但是遇到一个问题，就是当拖动DBGrid的滚动条的中的滚动块，而不是上下的箭头，这时候表格里面的数据记录不跟着变化，只有松开了鼠标的时候，DBGrid里面的记录才刷新到当前的位置。我想就是按着滚动块移动的时候，此时里面的数据记录也跟着随时移动到当前位置，怎么来实现我的这个功能？？我非常急！！请大伙帮忙呀！多谢！
...全文
请发表友善的回复…
发表回复
dd_zhouqian 2005-10-20
procedure Tfrmsetcrop.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
inherited;
if (DBGrid1.Focused) And (Msg.message = WM_MOUSEWHEEL) then
begin
if Msg.wParam > 0 then
SendMessage(DBGrid1.Handle, WM_KEYDOWN, VK_UP, 0)
else
SendMessage(DBGrid1.Handle, WM_KEYDOWN, VK_DOWN, 0);
Handled := True;
end;
end;
var Handled: Boolean);
begin
inherited;
if (DBGrid1.Focused) And (Msg.message = WM_MOUSEWHEEL) then
begin
if Msg.wParam > 0 then
SendMessage(DBGrid1.Handle, WM_KEYDOWN, VK_UP, 0)
else
SendMessage(DBGrid1.Handle, WM_KEYDOWN, VK_DOWN, 0);
Handled := True;
end;
end;
zhangweiwein 2005-10-20
是的，支持楼上二位的说法
chenminghong 2005-10-20
cxgrid是我见到功能最强大的表格控件
xhai 2005-08-22
用第三方控件吧。比如cxGrid
hqhhh 2005-08-22
好像前几天的贴子中有这个问题，
楼主可以搜索一下！
楼主可以搜索一下！