手揣网教程:绿色安全纯净官方版,体验当今速度最快的浏览器!

如何在DBGRID或者STRINGGRID中完成用滚轮进行翻页的技巧

时间:2024/12/14作者:未知来源:手揣网教程人气:

[摘要]你先在窗体上放一个TApplicationEvents控件(Delphi自带的),找到WmMouseWheelMessage事件。 下面是我实现的(这个用的是键盘的上下按键消息,你也可以改成滚动...
你先在窗体上放一个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);  
           Handled  :=  True;  
       end;  
end;  
-------------------------------------------------------------------------  
问题解决,特别感谢barely(一哥)  
DBGRID这么写,先加一个TApplicationEvents,  
procedure  TForm1.ApplicationEvents1Message(var  Msg:  tagMSG;  
   var  Handled:  Boolean);  
begin  
 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;  
stringgrid这么写  
procedure  TForm1.ApplicationEvents1Message(var  Msg:  tagMSG;  
   var  Handled:  Boolean);  
begin  
 if  (stringGrid1.Focused)  And  (Msg.message  =  WM_MOUSEWHEEL)  then  
       begin  
           if  Msg.wParam  >  0  then  
               SendMessage(stringGrid1.Handle,  WM_KEYDOWN,  VK_UP,  0)  
           else  
               SendMessage(stringGrid1.Handle,  WM_KEYDOWN,  VK_DOWN,  0);  
           Handled  :=  True;  
       end;  
end;  



关键词:如何在DBGRID或者STRINGGRID中完成用滚轮进行翻页的技巧




Copyright © 2012-2018 手揣网教程(http://www.shouchuai.com) .All Rights Reserved 网站地图 友情链接

免责声明:本站资源均来自互联网收集 如有侵犯到您利益的地方请及时联系管理删除,敬请见谅!

QQ:1006262270   邮箱:kfyvi376850063@126.com   手机版