首页 相关文章 如何在DBGRID或者STRINGGRID中实现用滚轮进行翻页的功能就象浏

如何在DBGRID或者STRINGGRID中实现用滚轮进行翻页的功能就象浏

你先在窗体上放一个TApplicationEvents控件(Delphi自带的),找到WmMouseWheelMessage事件。
  
  下面是我实现的(这个用的是键盘的上下按键消息,你也可以改成滚动条消息)。
  
  procedure TMainForm.WmMouseWheelMessage(var Msg: tagMSG;
   var Handled: Boolean);
  begin
   if (DBGrid.Focused) And (Msg.message = WM_MOUSEWHEEL) then
   begin
   if Msg.wParam 0 then
   SendMessage(DBGrid.Handle, WM_KEYDOWN, VK_UP, 0)
   else
   SendMessage(DBGrid.Handle, WM_KEYDOWN, VK_DOWN, 0)...[ 查看全文 ]

2016-02-19 标签:

如何在DBGRID或者STRINGGRID中实现用滚轮进行翻页的功能就象浏的相关文章

手机页面
收藏网站 回到头部