Delphi中的DBGrid的滚动问题??请赐教!!!进入

喜欢编程朋友 2005-08-22 09:19:40
我用Delphi的DBGrid打开数据库的表,将里面的数据显示出来,但是遇到一个问题,就是当拖动DBGrid的滚动条的中的滚动块,而不是上下的箭头,这时候表格里面的数据记录不跟着变化,只有松开了鼠标的时候,DBGrid里面的记录才刷新到当前的位置。我想就是按着滚动块移动的时候,此时里面的数据记录也跟着随时移动到当前位置,怎么来实现我的这个功能??我非常急!!请大伙帮忙呀!多谢!
...全文
211 5 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
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;
zhangweiwein 2005-10-20
  • 打赏
  • 举报
回复
是的,支持楼上二位的说法
chenminghong 2005-10-20
  • 打赏
  • 举报
回复
cxgrid是我见到功能最强大的表格控件
xhai 2005-08-22
  • 打赏
  • 举报
回复
用第三方控件吧。比如cxGrid
hqhhh 2005-08-22
  • 打赏
  • 举报
回复
好像前几天的贴子中有这个问题,
楼主可以搜索一下!

5,927

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧